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rIOBBI 
SUKTROMIK 

Urbán István mérnök áramköreinek szakfizlete 


Budapest VII., Dózsa György út 16. (Dózsa-Jobbágy sarok) 
Nyitva: H-P 10-17-lg Tel./fax: 122-8892 
(Zárás után üzenetrögzítő) 


Több, mint tíz éve írok a Rádiótechnikában, vezetem a ,Zenei hobby elektronika" fejlécű rovatot. A közölt témák 
nagyrészéhez szaküzletemben - működö minta iüapján - vásárolhat pjineiokat, részegységeket, egységcsomagokat. 

KÍNÁLATUNKBÓL: 


SZÁMÍTÁSTECHNIKA: 


I— 

C64 bővítők; 

egys. 

éleszt. 

RT89/3 

PLOFI Datassetle cariridge. 

.1200 Ft... 

...1500 Ft 


PLOFI Oaiassette/promon. 

.1300 Ft... 

...1700 Ft 


PLOFI Datassette/help. 

.1300 Ft... 

.. 1700 Ft 

RT89/10 PLOFI Fastloadcartridge. 

..1300 Ft... 

...170OR 


PLOFI Fastioad speedtape. 

.1400 Ft... 

...1900 Ft 

RT90/3 

PLOFI Simon'scariridge. 

.1300 Ft... 

...1700R 


FINALIIIcartridge. 


...3450 Ft 


ACTION ReplayVII... 


...3450 R 

RT89/11 Fényceruza.szoftverrel.... 

... 950 Ft... 

...1250 Ft 

RT90/8 

Harrgdigitalizá ló -f szoftver. 

..1350 Ft... 

...1650 Ft 

HE90/8 

Hangkapcsoló. 

...300 Ft 


RT89/4 

EPROM-égető. 

.3400 Ft... 

... 4500 Ft 


Égető szoftver lemezen. 

.1300 Fi 



Égető szoftvercartridge. 

.1300 Fi... 

...1700 Ft 


User csatlakozó. 

... 300 Ft 


RT91/3 

EPROM-bank (256 Kbájt). 

.2900 Ft... 

...4000 Ft 

RT91/10 IC taszter. 

.3000 Ft... 

... 4500 Fi 

RT9t/7 

Datassetle gyorsmásoló. 

...600 Ft 


HE91/7 

Datassettefejbeállltó. 

...350 Ft 


HE90/t2 CPU stop-r rését. 

...400 Ft 



. PAGEFÓXszövegszerkesíiö 


. 3900 Fi , 


Mini EPROM-bank. 

.2300 Ft... 

.3000 R. 


I IBM bővítők: sgys. éleszt. | 

RT91/4.5 IBM IC lesrter + szoftver. 6900 R.9800 Fi 

RT91/11.12 IBM EPROM-égelö 

+ szoftver.4800 Fi.9900 Fi 

RT91/6 48csat. irOkártya.3500 Ft 


HE92í'2 User-Centronicscsallakozó.950 Fi 

RT92/3 TTL IC katakígus lemezen.600 Ft 

CMOS IC katalógus lemezen.600 Ft 

Dióda katalógus lemezen.600 Ft 


Tranzisztor katalógus lemezen.. .600 Ft 


ZENE - HANGTECHNIKA: 


flT87/10 Fuzz-box torzító.670 Ft 

RT90/1 KORG DST-1 torzító.1200 Ft 

.KORG OST-3 torzító.1400 Ft 

HE90ri KORG OVERDRIVE torzító.920 Ft 

RT87/12 Vau-vau gitáreftekt.640 Ft 

RT88/9 Sztereó tremoló.980 Ft 

RT887 Shifter.1200 Ft 

HE90;7 Kiszajúgilárelöerősitö.700 Ft 

RT89/5 Sztereó elöerősílö.1500 Ft 

HE91/12 Hangfrekvenciás erősítő.490 Ft 

RT89/8 2x 14 W sztereó erősítő.990 Ft 

RT69/12 2x40 W sztereó erősítő.1800 Ft 

RT89ri 100 W-os erősítő. 1600 Ft 

RT90/3 RItmusgép 32 ritmussal.2500 Ft 

RT90/10 Dobszmtetizátor.3500 Ft 

RT88.'3 Süvöltő gitáreftekt.780 Ft 

RT87/11 R ingmodulátor.995 Ft 

RT92.'4 Oktávemelö.700 Ft 

._... VissztiangosítóMN3005-tel.4800 Ft 


VIDEÓS TÉMÁK: 


FÉNYTECHNIKA: 


RT8ai10 Diszkólény II (triak nékül). 1400 Ft 

Diszkólény II (triakkal).3000 Ft 

RT88i't2 Fényorgona.2000 Ft 

RT90.'2 Programozható lulófény. 1200 Ft 

RT91/1 8 X 8-as lénymálrix 

+ 16 K EPROM.2000 Ft 

8xB-hoz LED panel 

10 mm-es LED-ekkel.2000 Ft 

RT89/6 Kivezérlésjelző.700 Ft 

RT91.'8 Sziporkázó színgyűrü.650 Fi 

Kétszínű LED..48 Ft 

HE91/10 Karácsonylfényjáték.700 Ft 

HE92/8 KnighlRiderlulélény.950 Ft 


EGYÉB HOBBI TÉMÁK; 


RT88/10 Dallamgenerálor Z80-nal. 1500 Ft 

HE91/1 Dallamgenerálor UM3481-84.800 Ft 

HE91/5 Dallamgenerálor UM66TXX.480 Ft 

HE91/4 Beszéd1elismeröVCP200-zal.750 Ft 

VCP200.1950 Ft 

HE91i2 Kutyaugatás szintetizátor.800 Ft 

RT91/8 Eb-vezérlö. 400 Ft 

HE91/6 Szúnyogriasztó.700 Ft 

HE91/9 Mullisziréna.480 Ft 


RT92/6 RGB generátor...1760 Ft 

RT92'11 PALkóder.1400 Ft 


Az árak a 25% ÁFA-t tartalmazzák! 


Választékunk folyamatosan bővül! A Rádiótechnikában, a Hobby Elektronikában megjelent 
nyák-tervek alapján készült nyomtatott áramköri lapok az üzletben megvásárolhatók. 


MŰSZERVÁSÁR 

Bontott anyagok, 
haaznáit műszerek 
böngészdéje 



Állandóan változó készlet! 


Vidéki olvasóknak segít a szerző levelező, egységcsomagküldő 
szolgáltatása: a megrendelt csomagot postán utánvéttel 
elküldöm. Telefonon/faxon és levélben Is rendelhet. 

A HOBBI ELEKTRONIKÁ-hoz nem kell hosszú levél. Rendelését 
néhány sorban, egyértelműen közölje. 

Levélcím: 1656 Budapest Pf. 50. 


Az Üzletben megvásárolhatók az RT évkönyvei, a Rádiótechnika és a Hobby Elektronika korábbi számai. 

























































































































EGYESÜLET 


MIT, HOGYAN, HOL, MIKOR? 

EGYESÜLETI ÜGYEK: Egyesületünknek tagja lehet min¬ 
denki, aki a tagsági díjat befizeti. A tagdíjat személyesen az 
egyesület irodájában (1025 Budapest, Vöröstorony utca 29. 
Telefon: 1-76-22-57), vagy átutalással az MNB 217-98 292, OTP 
565-3610-8 számlára lehet befizetni. Megrendelés esetén szám¬ 
lát küldünk. 

Pötyögőszolgálatunk valamint a szervizkedvezmény és az 
apróhirdetés lehetősége tagjaink rendelkezésére áll. 

A DEÁKPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, a tagsági díj egy egy évre 890 Ft. 

A PLUSZPÁHOLY tagjai minden hónapban megkapják a 
C-újságot, és kapnak havonta 3 db vásárlási utalványt. A tagsági 
díj egy évre 2050 Ft. 

A SZUPERPÁHOLY tagjai havonta 15 példányt kapnak a 
C-űjságból, és ezzel havonta 15x3 db vásárlási utalványt is. Az 
éves tagsági díj 24 000 Ft. 

ÜGYFÉLFOGADÁS: Minden kedden és csütörtökön 12—16 
óra között várjuk tanainkat és az érdeklődőket. 
PÖTYÖGŐSZOLGÁLAT: Az újságban megjelenő programo¬ 
kat másolja a megrendelők részére. Megrendelhető személyesen 
az egyesület irodájában vagy postai utánvéttel. Postacím: 1388 
Budapest 62., Postafiók: 86. 

APRÓHIRDETÉS: Az egyesületi tagoknak ingyen áll rendel¬ 
kezésére. Nem tagoknak a hirdetés ára 100 forint. A hirdetés 
módja: az újságban megjelenő nyomtatvány kitöltésével. 

A C-ÚJSÁG RÉGEBBI SZÁMAI megvásárolhatók az egyesü¬ 
let irodájában, vagy megrendelhetők utánvéttel. 

Kedvezményes ár! Thgoknak olcsóbb! 

Az újságban eddig megjelent programok gépenként össze¬ 
gyűjtve megrendelhetők. VC 20, C16, PLUS/4, C128, C64. To¬ 
vábbi felvilágosítást is adunk a 1-76-22-57-es telefonszámon vagy 
levélben! 

Vidéki pluszpáholy-tagjaink háromhavi tikett összegyűjté¬ 
sekor igénybe vehetik a NOVOTRADE 2C Áruház csomagküldő 
szolgálatát. 

VIDÉKEN TOVÁBBI INFORMÁCIÓK KAPHATÓK: 

Baja, AXIS Kft., 

Győri Bartók Béla Művelődési Ház, 

Jászberényi Városi Könyvtár, 

Kecskemét, SZIGMA-BIT, 

Pécsi Apáczai Csere János Gimnázium, 

Zalaegerszegi Ságvári Endre Gimnázium. 


Az Országos Commodore Egyesület módszertani kiadványa 

Egyesületi iroda és szerkesztőség: 

1025 Budapest, Vöröstorony utca 29. Telefon; 1-76-22-57 

Felelős kiadó: Horváth Judit, az egyesület elnöke 

Főszerkesztő: Rados Péter, az OCE főtitkára 

Felelős szerkesztő: dr. Horváth András 

Művészeti szerkesztő: Bausz Sándor 

Levélcím: Commodore Újság, 1388 Budapest, 62. Pf.: 86. 

Index: ISSN 0237-756 X 

Terjeszti a Magyar Posta 

Megvásárolható a hírlapárusoknál 

93.0212 MSZH Nyomda és Kiadó Kft., Budapest 

Felelős vezető: Nagy László 


PÁLYÁZAT 

Az Országos Commodore Egyesület pályázatot hirdet. 
A pályázaton bárki részt vehet. A pályázat tárgya: 
C64-en vagy C+4-en futó, saját készítésű felhasználói 
program. A program a gép saját BASIC nyelvén ké¬ 
szüljön, terjedelme ne haladja meg a 300 sort. A prog¬ 
ramot kérjük lehetőleg lemezen (esetleg kazettán) be¬ 
küldeni. A pályázatnak tartalmaznia kell a program 
felhasználói útmutatóját, valamint a program belső 
működését ismertető leírást. 

A pályázat helyezettjei számítógépeket és tartozé¬ 
kokat nyernek. 

A pályázat beküldési határideje: 1993. szeptember 20. 

A pályaműveket kérjük az egyesület postacímére: 
1388 Budapest 62, Postafiók 86. eljuttatni. A bori- ’ 
tékra írják rá: „Alkalmazói program pályázat” 

Pályázatunknak nem titkolt célja, hogy egyesület tagjai és 
a lap olvasói olyan programokkal lepjek meg egymást, 
melyeket az iskolában, otthon, munkahelyen, kisvállalko¬ 
zásban jól tudnak használni. A programok használhatóságát 
nagymértékben meghatározza a dokumentáció minősege.’ 
Ezért felhívjuk pályázóink figyelmét az 1993/4-es számunk 
„Még többet ésszel” rovatában leírtakra. 

Országos Commodore Egyesület 



FELHÍVÁS 

Tisztelt Tagtársunk, Olvasóink! 

Kérjük, hogy ha rendelkeznek olyan működő számító¬ 
géppel, vagy jó állapotban lévő bármilyen számítógép¬ 
tartozékkal, amire nincs szükségük, akkor hozzák el 
egyesületi irodánkba (minden héten kedden és csütörtö¬ 
kön 11 — 15 óra között). 

Mi összegyűjtjük és eljuttatjuk azokat határainkon túli 
(erdélyi, kárpátaljai és szlovákiai) magyar iskolákhoz. 
Köszönettel: 

Országos Commodore Egyesület 
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=*ZEH í cMBlíí 


o 

















EGYESÜLET 


o 

o 

o 

o 

o 

o 

o 


1 RÉM :♦ * 

2 RÉM * !OH/!HŰT -.0=04 * 

3 RÉM st’: , , * 

4 RÉM ■■* KESZrCETVE^ * 

5 RÉM * ERRORÜESI.GHER ♦ 

É RE.M * / / ■♦ 

7 RÉM CSZILVRSi: BROS;* i* 

8 RÉM F'/l * 

S' RÉM **i**i*:Hi*:<(»i«i«****i«:*ii*:»»*i«*»* 

1,5 EORI =4!i' 1 íiZr048232 

20 REROei ’ POtCEi / H ‘ V=V-^H 


30 HEXri 

40 1FV-0883/VHEHPRlHT"HH3rt" ' EMU 
50 SS‘S48152-HEW 

100 ÜHTR168, 1,0/ 1.41. ,E;,3/ 169/ 192/ 141,9/3/96/ 120/32, 115,0,1 ('3, 120,32, 115,0,201,33 
110 DRrR240/4,83, (’6,231,167,32,115,0,201,145,240,7,201,168,240,17,76,8,175,169 
120 ÜRrR70/141,20,3,169,192,141,21,3,88,76,228,167,169,49,141,20,3,169,234,141 
130 DRTR21,3,88,76,228,167,174,32,208,232,142,32,208,76,49,234,234 


O 

O 

O 

O 

O 

O 



Tisztelt Szerkesztőség 


Nemrég csatlakoztam az egyesülethez és nagyon sok új ötle¬ 
tet találtam az egyesület lapjában. Ezért gondoltam, hogy elkül¬ 
döm néhány régebbi programomat. 

De térjünk a tárgyra! Az adathordozón található első prog¬ 
ram futtatás és SYS 49152-vel történő indítás után két utasítással 
bővíti a C-64-es operációs rcnd.szcrét (BASIC). A ION utasítás¬ 
sal bckapc.solhatjuk a keret gyors színváltását. A INOT utasítás¬ 
sal ugyanez kapcsolható ki. Mivel a kcrctszínváltás egy új IRQ 
rutin segítségével történik, közben a programunk tovább futhat. 
Ezek az utasítások robbanás szimulálására vagy figyelem felkel¬ 
tésre használhatók. 

A má.sodik rutinnal letesztelhetjük, hogy a joystick-unk 
működőképes-e. Használata nagyon egyszerű: a joystick-ot a 
Port2-be kell csatlakoztatni, majd ha valamely irányba elmozdít¬ 
juk, a gép ezt a képernyőre írja. A program valamely billentyű 
lenyomására megáll. 

Végül néhány szót szólnék a C-64-es képernyőscroll-ozá- 
sáról. 

először is vizsgáljuk meg a 53265 és az 53270-es címeken 
levő értékeket 27 és 200. Változtassuk meg ezeket az értékeket 
24-re és 207-re, ekkor a képernyő eltolódik. Tehát az Y irányú 
eltolás az 53265-ös címen van (lehet 24—31; alapállapotban 27); 
az X irányú eltolás pedig az 53270-es címen van Oehet 200—207; 
alapállásban: 200). 

Ennek bemutatására a SCROLL DEMO program (3. rutin) 
alkalmas, mely a HELP programmal assamblálható. 

Biztosan téltűnt már, hogy az Y irányú eltolás azon a címen 
van, mely fontos szerepet játszik a grafikus képernyő bekapcso¬ 
lásában; az X irányú eltolás pedig azon a címen van, melyen a 
mutlicolor üzemmódot kapcsolhatjuk be. Természetesen ha a 
grafikus képernyő be van kapcsolva, ez a módszer nem működik 
és ha a multicolor üzemmódnál zet a módszert alkalmazzuk, ak¬ 
kor a képernyő állandóan visszakapcsolódik hircs üzemmódba. 
Ezekben az esetekben az 53265-ös és a 53270-es címekre 
56—63, ill. 216—223 értéket írhatjuk. 

Sok szórakozást kívánok a rutinok és a képernyőscroll kip¬ 
róbálásához. 


ERRORDESIGNER 
Szilvási Ákos 


O 


0 

1 . 

2 

3 

4 

5 


O 7 


RÉM 
RÉM * 
RÉM * 
RÉM * 
RÉM 
RÉM » 
RÉM 
RÉM » 
RÉM * 


.J0VTE8ZTER - 0=64 

;tí 

íK 
* 

* 
W. 


tí;ES;7 HÉTTÉ- 

ERRORDE.'; 


tOHER 


<32tLVRSl. HK08> 


O 


O 


O 


O 


O 


O 


O 


8 

9 RÉM ;t<i*it(**»»*i*i***:**:t-:**:*4í*'*i*#*:* 

10 POK.E5632.0 , 12'7 ' P0!í.E56:322,224- 

15 OETR:y ■ lf - R:ir=" •'THEH20 

16 POK£56:322,255 

17 i-:hd 

20 R=PEEK<: 56320 > 

:30 I.FR=111THEHPR1HT"TÜZ." 

40 lFR=126 VHEHPR1HT"TEL" 

50 IFR=123THEHPRINT"BRE" 

60 i:FR= 119THEHPRI.HT " .JOBB" 

70 í. P R= 125THEttRR 1 H'T " LE " 

80 IFR= 122THENPRIHT" FEL--»-BRL" 

90 l FH= 117THEHPR1 H l""LE-t- JOBB " 

100 I FR= 121THEHRRI HT " LE-r BRE " 

110 l FR= 118THEHPR1 Hl" FEL-<- -JOBB " 

120 IFR= 107THEHPR1H V " VUZ->-BRE" 

130 I FR= 103THEHP'R I HT " T 02+ -JOBB " 

140 IFR= 110THEHPP'. 1 H l " TÜ2-Í-FEL" 

150 rFR=109THEHPRrHT"TU2-*LE" 

160 IFR= 106T'HEHPR 1 HT " TU.Z-+FEL+BRL" 
170 1FR=102THEHPRÍHT"TUZ+FEL-KJOBB‘ 
180 tFR=105THEHPRIHT"TUZ-4-LE-4BRL" 
190 ];FR=101 THEHPR];hi "TUZtLEi JOBB" 
200 GOTO 10 


O 


O 


O 


O 


o 


o 


o 


o 


Tisztelt C-64 felhasználó! Megrendelhető az általunk 
kifejlesztett NARANCS 3 6200 nevű katalógus készítő 
program. Márkás lemezen kapható. Tartozik hozzá még 
egy részletes, könnyen áttekinthető használati utasítás 
is. Ára: 500 Ft, amely tartalmazza a postaköltséget is. 
A program előnyeiről a 162-7724-cs telefonszámon, 
vagy a fenti levélcímen kap felvilágosítást. 

Játék- és felhasználói, valamint demó programok el¬ 
adók! Kérjük tünte,s.se fel a gépe típusát és a hozzá 
tartozó perifériákat. /Vizhatlan csomagolás, kedvezmé¬ 
nyek) Bélyeggel ellátott válaszborítékért listái küldünk. 
(Amiga) FRIEND TWO CREW, 1399 Budapest, Pf.: 
701/55, (C-64) BUMBLE BEE, 116 Budapest, Sáfrány 
u. 44. Tel.: 162-7724. 
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EGYESÜLET 


o 


o 


o 

1 

S; 

3 

4 

5 

6 

y 

3 

9 




i* 

* 

* 

* 

* 

i*' 

♦ 


SCK'.ÜLL DEt'IÜ - C= 64 
, , < 3ELP > 

KÉSZÍTETTE’ 

ERkOROESIGHEf’: 


P/3 


CSZILVRSI RKQS> 


* 

* 

i+i 




O 


Ü 


O 


O 


0 

10 SK = 4^C002 





2.0 XI = Í D011 


X-KÜRDINRTR.JU SCROLL. ELTERES 



30 X2 = ¥0016 


V-4Í0RDINRTR.JU SCROLL ELTERES 

O 

0 

40 X3 = ¥ce 





50 K LOX’K’.TIS 





60 LD‘i'«’¥C8 



O 

o 

■P0 Q1 STX XI 





30 SÍV X2 





90 LDfltt¥00 


LRSSITOCIKLUS KEZDETE 

o 

o 

91 STR ¥C000 





92 Cl INC ¥C000 





99 LÜR«’¥00 



o 

o 

100 STR ÍC001 





110 C2 INC ¥C001 





120 LOR ¥C001 



o 

o 

130 CRP4¥FF 





150 BEQ Q2 





155 JHP C2 



o 

o 

156 Ö2 LOR -TC000 





15? CHP«’¥03 





158 BEQ Q3 



o 

o 

159 .JRP Cl 


LRSSIVOCIKLUB VEGE 



160 Q3 TXR 


TÜLLEPTE--E fl SCROLL ÉRTÉKÉ R NEGENGEOETTET 



l?0 CNP#:f lF 



o 

o 

180 BEQ K 


IGEN 



190 INX 





200 INV 



o 

o 

210 .JNP Q1 


NEM 



220 ;INDITRS SVS 

49154 ^- 

- 

0 

RERDV. 





Tisztelt Szerkesztőség! 




- LOAD hatástalanító 

POKE 816,157 



- LOAD engedélyező 

POKE 816,165 

Rendelkezem olvan POKE utasításokkal, amelyek a C-64 



számítógépen kevésbe ismertek, 

, de igen megkönnyítik a progra- 

— RUN/STOP hatástalanító 

— RUN/SOTP engedélyező 

POKE 808,239 
POKE 808,237 

mozast. Sok fejfájást okoz a programozásnál az, hogy a gép az 



INPUT utasítás után automatikusan kiír egy kérdőjelet, vagy a 

— RESTORE hatástalanító 

POKE 792,193 

GET utasításnál nem villog a kurzor stb. Mindenesetre küldök 

— RESTORE engedélyező 

POKE 792,71 

ecv listát, amelv 26 csalafinta ártalmatlan de hatásos POKE-ot 



1 


— Sorszám nélkül LIST 

POKE 22,35 

tartalmaz. 


— LIST sorszámmal 

POKE 22,25 


Papp Tibor 

- CRSR kikapcsolás programban 

POKE 204,1 



— CRSR bekapcsolás programban 

POKE 204,0 



(GET, WAIT alatt isi) 




— RUS be (programban) 

POKE 199,128 



— RUS ki (programban) 

POKE 199,0 

- INPUT kérdőjel nélkül 

POKE 19,1 



- INPUT kérdőjellel 

POKE 19,0 

— CRSR sebesség 

POKE 56325,X 



- CRSR sebesség + villogás 

POKE 56565,x 

— NEW közömbösítés 

POKE 2050,1:SYS 42291:POKE 45, 



(RÉSÉT után is!) 

PEEK {34):POKE46,PEEK (35>:CLR 

— Oszlop pozíció 

POKE 211,X 



— Sor pozíció 

POKE 214,x 

— LIST hatástalanító 

POKE 775,191 



— LIST engedélyező 

POKE 775,167 

— A gép semmit sem fogad el 

POKE 120,80 

— SAVÉ hatástalanító 

POKE 819,246 

— Többszínű karakter üzemmód be 

POKE 53270,216 

— SAVÉ engedélyező 

POKE 819,245 

— Visszakapcsolás 

POKE 53270,200 
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Tisztelt Szerkesztőség 


Nagyon szeretem olvasni újságukat és ezt nem is bántam 
meg, ugyanis sok trükköt belőle tanultam meg. Most én is szeret¬ 
nék segíteni programozótársaimnak a következő programokkal. 
Remélem hasznára leszek mind lapjuknak, mind pedig tár¬ 
saimnak. 

A programcsomag a következőket tartalmazza: 

1. Órarend 

Ennek a programnak a működé.se szerintem magától értető¬ 
dő: Az A és a B heti órarendünket könnyedén átnézhetjük, mó¬ 
dosíthatjuk, törölhetjük. Még annyit a program működé.séről, 
hogy csak lemezen üzemeltethető. 

2. Code (titkos levelező') 

A program a következőképpen működik: 

1. beadjuk a két azonosító kódot; 

2. válaszolunk a kérdésre miszerint szöveget vagy kódot 
akarunk lefordítani (s/c); 


.r 
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3. bebillentyűzzük az általunk kívánt szöveget vagy kódot 
(max. 40 kar.); 

4. elolvassuk, esetleg leírjuk a lefordított jeleket; 

5. megnyomunk egy gombot, amire a program a 2. lépésre 
ugrik. 

3. Pontos idő (ébresztőóra) 

A program először megkérdezi az ébresztési, majd a pontos 
időpontot. Utána kirajzolja a tőábrát és amikor az időkijclzés el¬ 
éri az ébresztési időpontot, akkor megszólal a programba épített 
kis vekker. Tíz csöngetés után a program futása folytatódik, a 
megszakításig vagy 24 óra múlva bekövetkező ébresztésig. 

Még annyit, hogy a program a számítógép rendszeróráját 
használja (ti§). 

U.i.: Kérem, ha lehet programjaimat tegyék be a pötyögő¬ 
szolgálat listcíjára. A másik kérésem pedig az, hogy a codc című 
programot ne közöljék le mert az úgy, elrontaná az egész prog¬ 
ram lényegét. 

Köszönettel: 

Mahunka Zsolt 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 RÉM 


1 RÉM ♦ * 

2 RÉM ♦ 0 R FI R E M D ^ 9 2 * 

3 RÉM * ■:¥ 

4 RÉM ^ COPRVOHT-92.05.14 * 

5 RÉM it: BV- * 

B RÉM M fi H U H K fi Z S. ♦ 
? RÉM * ♦ 


8 RÉM H<****4i'|í+*****;'t(Hí*it<**i+i*Hí* 

9 GOSIJB6000 

10 P0KE53272.23 
20 POKESSZSl,0 
30 POKE53280,2 

40 P0I<E646. 1 = "000000" 

50 PR IMTCMR4 < 147 > ^ PR I NT "SS 1 Dííí ‘ ; T I Í " D-l? T UM = " E VíH04; " . " MFM: 

60 FM*= " KFOMENU " • PR IHTSPC C 19--LEMC FM# ;■ /2 > .; FM:Í 
70 M14=":(®flH!:i 1 >rRfiREND l<ITn....T-SE" 

75 PR IMTSPC < 20-LEH < M14 > /2 ; M14 
80 M2iF="2::-rRfiREND ♦TN“S“SE " 

85 PR :i: MTSPC < 19- LEN CM2T >/2 > M2Í 
90 M3í="3>rRfiREHD LETrRL,-SE" 

95 PRIMTSPC <19-LEM<M34 >/2 > ; M3T 
100 M4s|i:="4M;:itTUM BEVITELE 
105 PRIMTSPCC 19-LEM'::M4:it>/2::'; MTT 
110 M5ít:="5> IDfssPGNT BEVITELE" 

115 PR I MTSPC C 18-LEM < M54/2 ;■ : M5T 
120 M6T="6>PR0GRfiM BEFE.JEZ"'S" 

125 PR I MTSPC 19-LEM CM6Í /2 > ; M6Í 

130 P0I<E19.. 1 aNPUT":»M<"”R;EM V'hL.fiSSZR KI fi MEGFELEL^ FUHKCIIT = " FC 
135 POKE19,0 

140 OHFCGOSUB1000.2000.3000/ 4000,5000.. 200 
150 PRIMTCHRT <147 > = GOTO50 

200 PRIHTCHR4<147>" KfSZn'irMHOGV VELEM DOLGOZOTT !M" 

210 SVS49152 

1000 PR INTCHR4 C 147 > " FTífiREMD KI T>"I...T-SE" 

1010 INPUT " Fl/B H~T ’ " ; HET 
1020 I FHEíé:= " fi " THEMI-I4= " fi " 

1030 IFHE:T= " B " THEMH:ir= " B " 

1040 I NPUT " r'TFííí.. EDD.• ^ZERDfi / -S-irriRTní;.. “TT-ITEK ’ " , MT 

1050 IFMT."H"THEH1110 

1060 I FMí:=" K " THEM1131 
1070 IFN4="S"THEH1152 
1080 IFMT="C"TMEN1173 
1090 IFNT="P"THEM1194 
1100 GOTO1000 


O 

O 

ü 

O 

O 

O 

O 

o 

o 

ü 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1149 

1150 

1151 


1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 


flS 

flZ 

fiZ 

RZ 

flZ 

RZ 

RZ 


1. 
2. 

3. 

4. 

5. 

6 . 

r i> 

3. 


n'?R 

nvR 

ní:R 

r"F;R 

l"Tí;R 

PRR 

r"R:fl 

IT:R 

L-'H 


PRINT#2,07$ 

PR I NT#2.. 08Í 
PRIHT" MüELMENTETTEM 
!"’CL0SE2:RETÜRN 
1152 PR I HTCHR:íC 147 
INPUT"K-RlEr'l RZ 
INPUT "l<~REM 
INPUT "K'TÍEl'l 
INPUT"KnREM 
INPUT "K'TÍEM 
INPUT "KTlEM 
INPUT "KTíEr'l 
INPUT"K“REH 
INPUT"RENDBEN VRN 
IFI.Í-<:>"I"THEN1110 
0PEN2,8,2,;SZERÜR/ 
PRINT#2,01$ 

PR I NT#2Ü2á' 
PRINTtt2,03T 
PRINT#2/04* 
PRINT#2.05^ 

PRINT#2. 06í: 

PRINT#2,ŐZT 
PRINT#2,08:f 
PRINT" MKELNENTETTEM 
! " ' CL.0SE2 = RETURN 

1173 PR I NTCHRá: C 147 > 

1174 INPUT"K'“REN RZ 1. HRR 

1175 INPUT"KnREM RZ 2. PRR 


RZ nRRRENDET 


NE' 
NEV-T 
NEV~T 
NEV""T 
NEVT 
NEV~T 
N 


“ Olí 
" ; 02ít 
" ; 03T 
" . 04st- 
“ ; 05# 
"; 06# 
"; 07# 
NEVT".; 08# 
"; I # 


+N:;tH 


RZ fRRRENDET 


NEV“T' 
NEVT" 


01# 
; 02 # 


1110 

PRINTCHR#<147> 




1176 

INPIJT"K--REN RZ 3. 

FRR 

NEVT" .; 03# 

1 1 1 1 

INPUT"KT;EM RZ 1. 

FRR 

NEVT' 

, 01# 

1177 

INPUT"KT:EM RZ 4. 

FRR 

NEVT " ; 04# 

1112 

rNPUT"l<TEN RZ 2. 

FFÍR 

NEVT " 

; 02# 

1178 

INPUT"K-F>EN RZ 5. 

FRlFl 

NÉV.r",05# 

1113 

INPUT"I<“REH RZ 3. 

rPR 

NEVT " 

; 03# 

1179 

INPUT"1<"R:EH RZ 6. 

FRR 

NEVT " ; 06# 

1114 

input"kt;:en rz 4. 

l'"RR 

NEVT " 

; 04# 

1180 

INPUT"K""R:EN RZ 7. 

FRR 

NEVT “ , 07# 

1115 

INPUT"K~REM RZ 5. 

FRR 

NEVT " 

05# 

1181 

input"i<t:em rz S. 

l~RR 

NEVT " ; OS# 

1116 

INPUT"KT:EM RZ 6,, 

riRR 

NEVT " 

06# 

1182 

INPUT"RENDBEN VRN 

I/I'N 

"; I # 

1117 

INPUT"KT;EH RZ 7. 

rRüR 

NEVT " 

07# 

1183 

IFI#<>"I"THENl110 



11 18 

INPUT"K”REH RZ 8. 

FRR 

NEVT" 

08# 

1184 

0PEN2,8,2, " 0 ■ CSÜTÖRTÖK/ " +14#+ " .. S.. 

11 19 

INPUT"RENDBEN VRN 

I,-'N 

" í# 


1185 

PRINTtt2.. 01# 



1120 

IFI#0" I "THENl 110 




1186 

PRINT#2,02# 



1121 

0PEN2.. 8.. 2 .• "e : HÉTFŐ.-'" +H#+ " S, 

W" 

1187 

PR I NT#2.. 03# 



1122 

PRINTttZ.01# 




1188 

PRINTtt2,04# 



1123 

PRINT#2.. 02# 




1189 

PRINT#2,05# 



1124 

PRiNT#2u:::i3# 




1190 

PRINT#2,06# 



1125 

PRINTtt2.04# 




1191 

F'RINT#2,07# 



1126 

PRINT#2u:i5# 




1 192 

PRINT#2,. 08# 



1127 

PRINTttZ.Oe# 




1193 

PRINT"Wí!:ELMENTETTEM rz FRRRENDET 

1128 

PRINT#2o:i7# 




!";CL0SE2 ^ RETURN 



1129 

PRINTtt2,08# 




1194 

PRINTCHR#<;i47> 



1130 

PRINT " WOTiLMENTETTEN RZ FRlRRENDET 

1195 

input"kt;en rz 1. 

FRR 

NEVT" , 01# 

! " ■ CL.0SE2 : RETURN 




1196 

INPUT"K“T;EM RZ 2, 

FRR 

NEVT" ; 02# 

1131 

PRINTCHR#<147> 




1 197 

INPUT"KT;EM RZ 3. 

FRR 

NEVT " ; 03# 

1132 

INPUT"K“REN RZ 1. 

FRR 

NEVT " 

;oi# 

1198 

INPUT"KT;EH RZ 4. 

FRlR 

NEVT " ; 04# 

1133 

INPUT"K'“REM RZ 2. 

nzR 

NEVT " 

; 02# 

1199 

INPUT"K-R:EM rz 5. 

FR:fi 

NEVT " ; 05# 

1134 

INPUT"K~R:EM RZ 3„ 

nzR 

NEVT" 

; 03# 

1200 

INPUT"KT:EN rz 6. 

TOR 

NEVT" .: 06# 

1135 

INPUT"KT;EM RZ 4. 

FRR 

NEVT " 

; 04# 

1201 

INPUT"KT:EH rz 7. 

FR:R 

NEVT " , 07# 

1136 

input"kt;:em rz 5, 

FR:R 

NEVT" 

; 05# 

1202 

INPUT"KT:EM RZ 8. 

FRR 

NEVT " , 08# 

1137 

INPUT"K”REM RZ 6. 

FF:R 

NEVT " 

06# 

1203 

INPUT"RENDBEN VRN 

I .-'N • 

" .: I# 

1138 

INPUT"KT:EM RZ 7. 

riRR 

NEVT " 

J 07# 

1204 

IFI#-0" I "THENl 110 



1139 

INPUT”KT:EH RZ 8. 

IT:fl 

NEV~r" 

; 08# 

1205 

0PEN2.. 8,2.. "0 : PENTEK/"+H#+" , S, W" 

1140 

INPUT"RENDBEN VRN 

I/N 

", I# 


1206 

PRINT#2,01# 



1141 

IFI#'0"I "THENl 110 




1207 

PRINT#2,02# 



1142 

0PEN2.8.. 2, " e • KEDD/ " -H-l#+ " , S, W 

II 

1208 

PRINTtt2,03# 



1143 

PRINTttZ.Ol# 




1209 

PRINT#2,04# 



1144 

PRINTttZ,. 02# 




1210 

PRINT#2,05# 



1145 

PRINT#2,. 03# 




1211 

PRINT#2,06# 



1146 

PRINT#2.04# 




1212 

PRINT#2,07# 



1147 

PR1NT#2,05# 




1213 

PRINT#2,08# 



1148 

PRINT#2.. 06# 




1214 

PRINT"MrELNENTETTEM RZ 

FRRRENDET 


!"= CL0SE2 ^ RETURN 
2000 PR INTCHR# <; 147 " rRRREND 
2010 INPUT"R/B HÉT:"J HE# 

2020 IFHE#="fl"THENH#="R" 

2030 IFHE#="B"THENH#="B" 

2040 INPUT" ITPr.. EDD•ZERDR. 


-M-N 


-:3JTrRTrK 


T'NTEE : 


; N# 


O 


Q 


O 


. U " 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


2050 

IFN#="H"THEN2200 

O 

2060 

IFN#="K"THEN2220 


2070 

IFN#="S"THEN2240 


2080 

IFN#--"C"THEN,2260 

u 

2090 

IFN#="P"THEN22S0 


2100 

GOTO2000 

o 

2200 

0PEN2,8, 2, " l-IETFO/ " +H#:+ " , S, R" 


2201 

INPUT#2,01# 

o 

2202 

INPUT#2,02# 

2203 

INPUT#2,03# 


2204 

INPUT#2,04# 

o 

2205 

INPUT#2,05# 


2206 

INF'UT#2,06# 

o 

2207 

INPUT#2,07# 


2208 

INPUT#2,OS# 

o 

2209 

PRINT"R NflI nRRREND =" 

2210 

PRINT" ";01# 


2211 

PRINT" ";02# 

o 

2212 

FORINT" ",03# 


2'213i 

PRINT" ";04# 

o 

2214 

PRINT" ";05# 

2215 

PRINT" ";06# 



o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

ü 

o 

o 

o 

o 

o 

o 


2216 PRIHT" 

2217 PRIHT" ".;03í 

221S CL0SE2 = FÓRI = 1TO30O0 = HEXTI:RETURN 

2220 0PEH2.8,2."KEDD/"+HT+",S.R" 

2221 IHPIJT#2.01-T 

2222 IHPUT#2.02:í 

2223 INPUT#2,03á: 

2224 IHPUT#2,04;P 

2225 IHPlJTtt2.. őst- 

2226 IHPUT#2H:i6:if 

2227 IHPUT#2.. 07á; 

2223 INPUT#2o:i3:í 

2229 PRINT"R NflI rRPREND=" 

2230 PRIHT" ".;01T 

2231 PRIHT" ";02:í: 

2232 PRIHT" " 034^ 

2233 PRIHT" " ; 044: 

2234 PRIHT" ";054 

2235 PRIHT" " ; 06:4 

2236 PRIHT" ";074 

2237 PRIHT" " ; 03:4 

2238 CL..0SE2 : FÓR I = 1TO3000 = HEXTI : RETURH 

2240 0PEN2.. 3.. 2. "S2ERDR/" +H4+ " S.. R" 

2241 IHPUTtt2.014 

2242 INPUT«:2,024 

2243 INPÜT#2.03:4 

2244 IHPUT#2.044 

2245 IHPUT#2h:i5:4 

2246 IHPUTtt2.. 064 

2247 IHPUT#2.074 

2248 1HPIJT#2.. 08:4 

2249 PRIHT "FI MRI rTifiREHD : " 

2250 PRIHT" ".;014 

2251 PRIHT" ",024 

2252 F-RIHT" " ; 03:4 

2253 PRIHT" ";044 

2254 F-RIHT" " ; 054 

2255 PRIHT" ";064 

2256 PRIHT" ";074 

2257 PRIHT" " 084 


225S CL0SE2 = FÓRI = 1TO3000'HEXTI= RETURH 

2260 0PEH2,8,2,"CSÜTÖRTÖK/"+H4+",S,R" 

2261 IHF'ÜT#2,014 

2262 IHPUT#2,024 

2263 IHPUT#2,034 

2264 IHPUT#2,044 

2265 IHPUT#2,054 

2266 IHPUT#2,064 

2267 IHPUT#2,07:4 

2268 IHPUT#2,084 

2269 PRIHT "Fi MRI ORRREHD : " 


2270 PRIHT" ".:014 

2271 PRIHT" ";02:4 

2272 PRIHT" ".1034 

2273 PRIHT" ",044 

2274 PRIHT" ";054 

2275 PRIHT" ";064 

2276 PRIHT" " 074 

2277 PRIHT" ";084 


2278 CL0SE2 = FÓRI = 1TO300O = HEXTI :RETURH 

2280 0PEH2,8,2,"PEHTEK/"+H4+",S,R" 

2281 IHPUT#2,01:4 

2282 IHPUT#2,024 

2283 IHPUTft2,034 

2284 IHPUT#2,044 

2285 IHPUT#2,054 

2286 IHPUT#2,064 

2287 IHPUT#2,074 

2288 IHPUT+t:2,0S4 

2289 PRIHT"R HRI rRFiREHD: " 


2290 PRIHT" ";01:4 

2291 PRIHT" ";024 

2292 PRIHT" ";034 

2293 PRIHT" "j044 

2294 PRIHT" ";054 

2295 PRIHT" " 064 

2296 F-'RIHT" " ; 074 

2297 PRIHT" " 084 


2298 CL0SE2 = FÓRI = 1TOOOOO:HEXTI:RETURH 
3000 PR IHTCHR4 C 147> " FTlFlREHD TrTüL'CSE" 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


3005 PRIHT"VIGV+ZZOH MERT MIHDEH SEQ-FILE ELVSZ M" 

3010 IHPUT " TrFirLJEM I /H " 14 

3020 IFI4<>"I“THEHRETURH 

3030 OPEH15,8,15,"S = 4=8"= CLOSE15'RETURH 

4000 PR I HTi::HR4 < 147 > " D+TUM BEVI TEL.E " 

4010 IHPUT"”'v"' ;EV4 
4020 IHPUT"Hr",H04 
4030 I HPUT " HFlP " ; Hfl4 
4040 RETURH 

5000 PR IHTCHR4 < 147 > " I DííjF'OHT EEV I TELE " 

5010 IHPUT"OOPPMM";TI4 
5020 RETURH 

6000 FÓRI=49152TO49200‘REODX:POKE1,X = HEXT 
6020 SVS49152 

6025 DRTB169,0,133,251,133,253,169,208,133,252,169,48,133,254,12©,169,51,133,1 

6030 DFITFI160,0, 177,251,145, 253,200,208,249,230,252,230,254, 165,252,201,224,208 

6040 DRTR239,169,55,133,1,88,169,28,141,24,208,96 

6043 GOSUE6045 

6045 FORP1=1T09■RERDUM 

6050 FORK1=0TO7 • RERDKZ ‘ P0KE122S8+8i*UM+Kl, KZ = P0fíE12283+.;;UFH-12S>4S-Uí:i, 255-KZ 
6053 HEXT = HEXT 

6055 DRTR65,24,24,60,102,126,102,102,0 
6060 DRTR69,24,24,126,96,124,96,126,0 
6065 ORTfil05,102,0,60,102,102,102,60,0 
6070 DFITR73!, 24-, 24-, 60,24,24,24,6G, O 
6075 DRTR79,24,24,60,102,102,102,60,0 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 
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^6080 DRTR104,102,102,60,102,102,1@2,60,0 
6085 DRTRS5,24,24,0,102,102,102,60,0 ^ 

0 6090 DnTR122, 102,0,102, 102, 102, 102,60,0^' 
6095 DRTR100,102,102,0,102,182,102,60,0 

Q61 00 • O 

^6120 P0I<E646,1 

6130 CLR ■ PR 1 HT " 21“ q 

0 6140 

6150 PR I NT " r /.Xr"®" ’ 130TO50 



0100 PR INTCHRÍ <; 147 
110 INPUT '• :HBRES2TES I IDOPONT = " ; 9.'$ 


^113 I NPUT " aP0NTOS 100 ^ " ; TI ■$ 

115 PRlNT":M«i'ftWiíte:iíiiii«iiiii» iiiiiii»iiiiii!iii»i|jiiitiiiiiig 
OURRTZ ORR " 

0120 PRINT"(i|ll«l»llil HmOiHHIINIilliillliil r.. 

130 PR :i: NT "I 
140 PRINT"|illl«fr»illiiÍill»lll«il«IIU 
® 150 PR I NT " I 

160 PRI NT " I 

0170 PRINT"lilHilii« WIHIÍiHWI 

180 PRTNT"|illiilluÍ*lllHll«l»i»i»l»il»illliil!!»« -- 

^ 190 R:T=T 1T : R=VRL CRT > 

^200 ORT=TI IDT C RT, 1,2 


O 

"O 

n 

II 

„o 

41 

"O 

o 


210 OBT=NIDT C RT,3,2 > 
0215 ŰCT=MIDT C RT,5,2 > 


217 P0KE211, 16 : P0KE214,11= .SVS58640 
^220 PRINTORT; •' = " ; OBT; “ = " ; OCT o 

-^225 BGT===ORT+OBT+OCT 
227 IFBGT==RTTI-IENGÜSÜB250 
0230 GOTO190 ^ 

240 = 

q250 8=54272 O 

260 FORT=0TO24 = POKES -i-T, O = NEXT 
270 POKES+5,10 = POKES+24,15 
O280 POKES+15,30 = POKES+ 1 ,159 ^ 

290 FORR=1TO10 = PüKES+4,99 
O 300 FORT = 1TO1000 = NEXT O 

310 POKES-i-4,20 



o / ■* 

O 


7PRÍNTER 


O 

O 


PRINTER 

íh 


o 

o 

o 

o 

o 

o 


o 


o 

o 


AztecC; cc <f-ne> 

In <file>.o -lc32 --lm -o 

Code by TPE 


-i 


ttinclude <exec/types.h> 

UBYTE *regl = OxbfelOl; 

U8YTE *reg2 = 12570624; 

UBYTE a.b; 

main () 

c 

a =” ■'^recj2&1; 
b = *reg 1 íi 1 ; 

if(a==0 íi& b--=l) printfC'OK minden rendben 


O 


O 

O 

O 

O 

O 

o 


Ez a programocska önma¬ 
gában szinte semmire sem jó, 
viszont egy nagyobb program¬ 
ba beépítve, már igazán jó 
szolgálatot tehet. 

Használatával tulajdon¬ 
képpen ellenőrizhetjük, hogy 
nyomtatónk ON- vagy OFF- 
LINE állásban van, tehát 
kész-e az adatok papírra vite¬ 
lére vagy sem. 
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PROGRAM 


Törtkezelő 

C-64-re 


Matematikai példák megoldása során már mindenki ke¬ 
rült olyan helyzetbe, hogy törszámokkal kellett egy-egy műve¬ 
letet elvégeznie, esetleg egy hosszú és bonyolult, törtszámokat 
is tartalmazó kifejezés végeredményét kellett kiszámolnia. 
Ilyenkor bizony elkelne egy olyan .számológép, amely képes 
arra, hogy keresztül-kasul számolgassa a törtszámokat. For¬ 
galomban van már ugyan néhány ilyen szerkentyű, ám ezek 
azonnal átváltanak tizedestört módba, amint a gyökvonás a 
legcsekélyebb módon szóba kerül. Ugyanezt teszik akkor is, ha 
a tört,szám összhossza (a számláló, a nevező és az egészrész 
együttes hossza az elválasztójelekkel együtt) meghaladja a kije¬ 
lezhető számjegyek számát. Eme hiányosságok pótlására (is) áll¬ 
jon itt e program. 

A Commodre BASIC V3.5-ÖS nyelven megírt program hasz¬ 
nos segédeszköz lehet mindazok számára, akik egész- és tört¬ 
számokat egyaránt, esetleg külön-külön tartalmazó kifejezé¬ 
sek számértékű megoldására egész, illetve tört alakban kí¬ 
váncsiak. 

Lehetőség nyílik ugyanis a négy alapművelet, tehát az 
összeadás, a kivonás, a szor.szás és az osztás, valamint a négy¬ 
zetgyökvonás elvégzésére. A műveletek prioritá.sát természete¬ 
sen befolyásolhatjuk zárójelek mindennemű, ám logikailag he¬ 
lyes (minden nyitó zárójelhez tartozik egy bezáró zárójel is) 
használatával. Az egyes számokat megadhatjuk számláló/neve- 
zős, egészrész -f számláló/nevezős, illetve egész szám for¬ 
májában. 

Kezelé.se igen egyszerű; a következő táblázat tartalmazza a 
program által használt billentyűk és karakterek funkcióit. 
Karakterek: 

0—0: számjegyek 

+: ös.szcadás 

—: kivonás, vagy mínuszjel 

*: szorzás 

: : osztás 

/: törtjei, nem tévesztendő össze az osztá.sjcllcl!!! 

pipa: (SHIFT -I- @)-a négyzetgyökvonás jele 

0; zárójelek 

. : az egészrész jele. 

Vezérlóltillentyíík; 

RETURN: A bevitt sor elküldése. 

DEL: Egy karakter visszatörlése. 

SHIFT + RETURN: Az egész sor kitörlése, 

i/n; Válaszadás hibajavításkor. 

Valamint a karaktereknél felsorolt billentyűk, amelyek a kifeje¬ 
zés beírása során a megfelelő jelet adják. 

A kifejezés beadása az alábbi módon történik; az egyes szá¬ 
mokat a ponttal és a törtjellel tagoljuk, pl. 3 egész 1 kelted így 
néz ki: 3.1/2; három ötöd 3/5 vagy .3/5; az egész számokat pedig 
egyszerűen, minden jel nélkül írjuk he. A műveleti jelek követik 
a számokat, egy .szám után csak egy darah állhat! A gyökjel ez 
alól kivétel, ez ugyanis mindig arra kifejezés ELE kell, hogy ke¬ 
rüljön, amelynek négyzetgyökére kíváncsiak vagyunk; s belőle 
több is állhat (maximum 4). A beírt sor hossza maximum 6 kép¬ 
ernyősor lehet, ezen belül eredetileg 48 elem állhat, de ez az MX 
konstans átírásával megváltoztatható. 


Hibaüzenetet kapunk az alábbi esetekben: 

— Ha a kifejezésben szereplő számok egyike hibás formá¬ 
tumú, pl. 3/1/2. 

— Ha a kifejezésben a műveleti jelek hibásak, pl. két szor¬ 
zásjel egymás után, zárójelet nyitottunk közvetlenül egy 
szám után. 

— Ha a nyitó és bezáró zárójelek száma nem egyezik. 

— Ha egy szám egyik része (egészrésze, számlálója vagy 
nevezője) hosszabb 8 karakternél. 

— Ha egy nevezőbe 0 kerül akár művelet eredménye¬ 
képpen. 

— Ha egy gyökvonás eredménye nem racionális; (irracio¬ 
nális avagy imaginárius). 

— Ha a program elején megadott maximális .számú elemnél 
több szerepel a kifejezésben. 

— Ha egyszerre több, mint négyszer akarunk gyököt vonni. 

Bármilyen hibaüzenet után lehetőséget kapunk az hiba for¬ 
rásának megszünteté.sére. A program kérdé.sére ha i-t nyomunk, 
az visszaadja a hibás sort és átírhatjuk benne a bajt okozó ré- 
sz(eke)t. Ha makacsul n-et írunk be, a program megvonja a vállát 
és mi máris bepötyöghetjük az újabb kiszámolandó kifejezést. 

A program elfogad egyetlen elemből álló sort is, ez esetben 
nincs már dolga, mint ezt egyszerűsíteni, és a végeredményt 
sima, illetve egészrészes tört alakban kiírni. Ez oknál fogva a 
program alkalmas ,,csupán” egyszerűsítésre és egészrész- 
.számításra is. E két dolgot egyébként automatikusan megteszi 
a bonyolult kifejezések számítá.sánál is: végeredményként ka¬ 
punk egy egyszerűsített törtet, s ha van mit számolni az egészré¬ 
szen, azt is. Ha a végeredmény egész, természetesen egészként, 
s nem pl..3/l-ként írja ki a program. 

Felmerülhet a kérdés; vajon képes-e kezelni ,,emeletes” 
törteket? Erre a válasz: sajnos, nem; ám ennek nagyon egyszerű 
a magyarázata. Vegyük például a 3/4/5 emeletes törtet. Ebben 
az esetben nem mindegy, hogy 3/4-et osztunk el 5-tel, avagy 3-at 
4/5-del. A két formátum csak az egyik törtvonal hosszú.ságában, 
azaz felsőbbrendűségében különbözik. S mivel eme program a 
törtvonalak közt nem tesz különbséget, emeletes törteket ilyen 
módon nem írhatunk be. Ehhez ugyanis hatalmas tárra volna 
szükség, mert előfordulhat, hogy valaki például 

23/4/3/76/4/21/2/65/76/3/4/87/9/2/3/7-et üt be, s hogy 
ezen törtvonalak hierarchiáját megállapítsuk, az rengeteg (és ér¬ 
tékes!) időt, változót, bonyolult algoritmust igényel, mely kel¬ 
lően nagy tár esetén valósítható csak meg, ezenkívül udorítóan 
kényelmetlenné tenné a program használatát a sok különféle 
törtvonal. 

Kis ügyeskedéssel azonban elérhetjük, hogy e program 
megért.se az emeletes törteket is. A megoldás: osztásként írjuk 
fel a törtet! Pl. 3/4/5 felírható (3/4:5) alakban, s ezzel a program 
már fütyürészve megbirkózik. Egy lehetséges megoldás a fenti 
számszörnyre: 

(23/4:3/76); (4:21/2); (65: (76/3: ((4/87:9/23): 3/7))). 

Hadd ejtsek most néhány szót a program felépítéséről. Bár 
a RÉM sorok magukért beszélnek a listában, mégis szeretnék 
kissé részletesebben szólni az egyes részekről. Az alábbi táblá¬ 
zatban megtalálhatóak a főbb részek helyei és funkciói. 
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0 

10 












11 

rem"|xxxxx x x xxx xxxx 

% 



1 

0 

12 

rera"! x xxx x x x 




i 

13 

rém” 1 m n k «x k k 


k 


1 


14 

rém" 1 » * xxx x 




1 

0 

15 

rem"I « xxx x x x 




l 


16 

rém" 1 




1 


17 

rem"l » « xxx xxx xxx x 



X 

1 

0 

18 

rém" 1 x x x x x x 


K 


1 


19 

rem"l»x xx i xx x' 


x 

á 

1 

0 

20 

rém" 1 X X x x x x 




I 

21 

rem"l * x xxx xxx xxx xx 


K 

k 

1 



XX 1 












0 

23 

: 






24 

goto94 






25 

: 





0 

26 

rém” »k»<*)íi»«kkxkkkxxkkrxí( 


A X K 

k 



27 

rém" « 



V 


0 

28 

rém" x Törtek e g y s z e r u s i t f • 

fit? 

K 


29 

rém” * 



X 



30 

rém" KXXXXXltXKIÍiíXKKífXlíKKK 

k 

H X X 

k 


0 

31 

32 

a = abs(32(i, 1)) 






33 

b=sz(i,2) 





0 

34 

lfa=0tbensz(l,2)=l;return 





35 







36 

reni"-Ma a nevezőben 0 


van 


- 

0 

37 

: 






38 

ifb=0tbenb=2:return 





0 

30 






40 

rém" - LKO keiesese - 






41 

: 





0 

42 

1 f b>a t henx = a :^a = b : b = y < 





43 

doun ti1b = 0 






4 4 

x=a-Int(a/b)xb 





0 

45 

a = b 






46 

b = x 





0 

4 7 

1 oop 





48 

: 






49 

rém" - Egy sze rus i tc-s bl'. 

Ü 

73 

1 ■ 


0 

50 

sz ( i,1 ) =sz ( i , 1 ) /a 





51 






62 

sz(i,2)=sz(1,2)/a 





0 

53 

It sz ( 1,2 ) <0tben58 






54 

r e t u r n 





0 

65 

; 





56 

rém" - 'Ha a nevező nega 

1 

i V 




57 

: 





0 

58 

sz(1,2 ) =-sz (1.2) 





59 

sz(i,l)=-sz(i.l) 






60 

r e t u r n 





0 

61 







62 

reifl” XXXXHKMXXJIXXXXKKXJÍKX 


R N H 




63 

rém" » 


H 



0 

64 

rém” ^ K 020 S nevezőre hoz 

a 

0 




65 

rém" ^ 


K 




66 

rém” jnmxKHJíjfxxxxxxxitxxxMkiixK 



0 

67 

: 






68 

a=abs(s 2 (l, 2 )) 





0 

69 

b=sz(Hl,2) 





70 

; 






71 

rém" - LKT keresess - 





0 

72 

rém"- A»B = LK0«LI<T elv 

s 

z e r i n t 

— 


73 

: 






74 

Ifb.''athenx=a:a = h;ta = x 





0 

75 

dount11b=0 






76 

x=a-int(a/b)xb:3=b:b=x 





0 

77 

1 oop 





78 

1t = s 2 (I,2)»sz( i 1 1,2 ) /a 






79 

: 





0 

80 

rém” Egyszeres i tes LK 

T 

- £? 0 

1 - 


81 

: 






82 

sz(i,l)=sz( i, l)xlt/sz( i,2 





0 

83 

sz(Hl,l) = sz(itl,l)xlt/sz 


i 1 

.2) 



64 

szíi,2) = 1 t 






65 

szí n 1.2) = 1t 






86 

r e t u !• n 


87 

: 


88 

rém" xxxxxxxxxxxxx 

XkkXkkkk 

89 

rém" x " 

K 

90 

rém" x F 0 P R 0 C 

R A M X 

91 

rém" k 

k 

92 

rém" xxxxxxxxxxxxx 

NXXXkMkk 

93 



94 

(nu$ = " 1 - X : " 


95 

vt = "-" 


96 

m K = 4 8 


97 

color0,2,O:color4, 

1 : c o 1 o r ! 

98 

d i m s z ( m X , 2 ) , m ( m X ) 

, g ( m X , 4 > 

99 



100 

' rém" Kkkkkkkkkkku 

N K k H k A 

101 

rém" « 

K 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1(Í2 rém" » Kezdő Itepernyo « 

I W 3 r e III " • « 

ltí4 rém" «iiiiK)iitii»i(ii«KK«»«).i. 

105 : 

1ÜÜ p r i n t c h f t ( 2 ? ) " n " c ti r i ( 1 1 o h f i ( Ö J 

107 prInt"TŰRTEK" 

108 prlnt"——-—" 

109 pr í nt"liJMuve I e tel:: « szorzás" 

110 prjnttab(10)": osztás" 

111 pr i II11 ab t 1 0 ) " > összeadás" 

112 pr 1 n t tab ( 10 ) " - liivorias" 

113 p r i n 11 ab ( 10 ) " A gyolivonas (egyszerre iiiaz.^l 

114 print "(;Pe 1 da : 4 / / * 0 / 5 : ( 2 / 3-A2. 1 / 4 ) ' 3 " 

115 print" ül 4 8 2 1" 

116 prínfEz egyenlő: * ~ : (.- 

II ' print" 7 6 3 

118 prlnt."£[jl" 

119 szí="" 

120 prlnt">"; 

121 : 

122 rém " »»»«»»«*««»««»»k»««» x k»«« 

123 rém " « « 

124 rém " x Adatok inicia 11zaI asa » 


i: 


rém 


126 rém " xxxxxxxxxxxxxxxxxxxxxxx.in 

127 : 

128 f or1 = 1tomx 

129 sz(i,0 ) =0 

130 sz t i , 1 1=0 

131 sz(i,2)=1 

132 m(1)=0 

133 g(1,0 ) = - 1 

134 g(i,1)=“1 

135 g<i,2)=-l 

136 g(í,3)=-l 

137 nexl 

138 : 

139 rém" x»xxx»xxxxxxxxxxxx 

140 rém" » * 

141 rém" x Beviteli rutin x 

142 rém" x x 

143 rém" xxxxxxxxxxxxxxxxxx 

144 : 

145 prínt"_|r: 

146 getkeyat 

147 i ta'» = " , "thenl46 
148. : 

149 rém"-Ma megengedett karaktéi. 

150 : 

161 i f aS = " A" t ben i f I en t s zí ) <■. 2313 1.pentl 10 
152.1 t aí> = " ( " tbe n 1 f at" l ben i t 1 en ( sz 11 ) 
.23íltheri.3l(’ 

153 : 

154 rém"-Ha vissza tor les - 

155 : 

156 i f at = chr'P (2011 ben i r'I en ( szi i .■ 01 ben4'j8 Q 

157 : 

158 rém" - Ma EH IFTiRE TURN - 

159 : O 

160 ifat = chr$tl41)t hen4 0i 

161 : 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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Cf 


o 

lti2 

lfal^<>chT't(13)ttiönl4ü 

238 

rém" « * 

o 


163 


239 

rém" K)t*KXílK«XMItK>»K«M 


o 

164 

rein"-A setniiiil nem leül dl el - 

240 

: 

o 

165 

: 

241 

1 fl<len<szí)theni = len(szil:next 


166 

i t ” 1 tien 146 

242 

prlnt"Hlbas szamf ormatuiii! !" 


0 

167 

: 

243 

goto293 

o 


168 

p r i n t " gQ" : E 21 = s 21' 1 " ’’ 

244 

ifi<len(sz$)theni=len(sz't):next 


168 

: 

24 5 

pi i nl"ll 1 bas le 1 f o rma t um ! ! " 


o 

170 

rém" NXÍIXHMMÍtXítXKÍtMKUMKXXXHMh 

246 

goto293 

o 


171 

Ifim" « » 

24 7 

Ífi<len(s 2 *)theni = len(sz't):next 


o 

172 

rero" « l< 1 f o jozesi; i er tol;e 1 es « 

248 

prInt"Túl sok gyokjel!!" 

o 

173 

rém" » » 

249 

go to293 


174 

rém" 

250 

iri<len(S2l)theni=len(szt;:next 


o 

175 

! 

251 

prInt"Túl sok szám!!" 

o 

176 

s * = " " 

252 

go to293 


177 

n=l 

253 

: 


0 

178 

2=0 

254 

rém" - Számláló es nevező - 

o 


179 

ej = l 

255 

: 

o 

180 

g=0 

266 

1f pr =0t hen507 


181 

torl=ltolen(B 2 t) 

257 

1í pt = 0then259 

o 


162 

at = mlci‘Ks 2 *, 1, 1) 

258 

sz(n,0)=v3l ( Ieftt(sf,pt-1M 


0 

183 

1f2<0then2Ö7 

259 

sz<n,l)=val<midi:(s1-,ptiV,pr-pL)) 

0 

184 


260 

sz ( n, 2) = va 1 ( r i g h 11 ( s t, 1 en ( s t pr > ) 


185 

rém" - Ha S 2 amon belül van - 

261 

Ifs2(n,2)=0then284 


o 

186 


262 

szín,l)=(sz(n,I)ts2(n.2)»ab3(s2vn. 

0 ) t ) K e 

187 

1 f at > = "."t ben 1 fat < = "9"t hen501 

263 

1 t s z ( n, 1 ) > 1 e8or EZ ( n. 2 >1 et; t |■|e•rl302 



188 


264 

g ^ - t. tt 


o 

189 

rém" - Ha negativ/po 2 itiv -. 

265 

ej = l 

o 


190 


266 

n = rn 1 


o 

191 

1 f a t = " - " t ben 1 f s't = " " t he n503 

267 

g = 0 

o 

192 


266 

: 


193 

l f s$ = ""t hen204 

269 

rém" - Ha túl sok szám van - 


o 

194 


270 

: 

o 

195 

rém"-) Csale S 2 am után! ! ! ! - 

271 

if n>mx t hen250 


196 


272 

: 


o 

197 

lfa*=")"then2=2-l:nOKt:goto279 

273 

rém"-Kiért, ciklus vege - • •• 

o 


198 


274 

: 


o 

199 

ifa'í = "("then244 

275 

nex t 

o 

200 

golo210 

276 



201 


277 

rém" - Zárójelek ÜK? --- 


o 

202 

rém" - Csab S2ain előtt: A es ( --- 

278 

: 

0 

203 

: 

279 

if2<>0then209 


204 

ifai="A"then316 

280 

goto330 


c 

205 

itat. = "("then505 

281 

; 

o 


206 

g0to244 

282 

rero" - Hibaüzenetek folyt. - 


207 

; 

263 



o 

208 

rém" - Művelet 1; i e r telte 1 e se - 

284 

Ifit len(S2$)theni=leiUsztt:next 

0 


209 

: 

285 

pr1nt"Nu11a a nevezőben !!!" 


o 

210 

m(nl=instr(mut,at>-ltz*4 

286 

goto293 

o • 

211 


287 

1 =1 ént szt ) 


o J o 

rém" - S 2 afn szétbontása --- 

268 

ne X t 


o 

213 

: 

289 

pr 1 nt "HI bas zaro jo1ezes ! ! !” 

o 


214 

pt=0 

290 

: 


215 

pr = 0 

291 

rém" - Hiba kijavítása 


o 

216 

forJ=ltolen(st) 

20 *^ 

* 

o 


217 

b t = in 1 d 1 ( s s , j , 1 ) 

293 

pr i ni "13< i van ja kijavítani? (i/n)" 


218 


294 

getkeyl<$ 


o 

219 

rém" - Ha eges 2 res 2 van benne - 

295 

i f kiO" i "thenl 18 

o 


220 

: 

296 

sz*=lett»(sz*,len(szi)l) 


n 

221 

1 fbt = "."then226 

297 

p r i n t " C;1 j)> " s z * ; 



222 

1 íbí="/"then229 

298 

gotol20 

o 


223 

ne x t 

299 

: 


o 

224- 

it pt> pr t hen241 

300 

rém" - További bibauzenetek - 

G 

225 

goto2S6 

301 

: 


226 

i1pt<^0orpr<. >0then232 

302 

lti<len(sz-l)theni=lon(3 2 l):next 


c 

227 

pt=l 

303 

print"Túl nagy szám!!!" 

o 


228 

goto223 

304 

goto293 


22 Q 

1 f pr < l'Ot hen232 

305 

prlnf'Tul nagy vegeredrneny ! ! ! " 


0 

230 

pr = J 

3(í>6 

goto293 

o 


231 

goto223 

307 

: 


0 

232 

J=1en< s$) 

308 

rém"- üev Ítéli rutin folyt. - 


233 

nex t 

309 

: 

0 


234 

: 

310 

printai ; 


o 

235 

rém" 

31 1 

szl' = s2t<a» 

o 


236 

rém" » « 

312 

got 0145 


23 7 

rém" » Hibaüzenetei: » 

313 

1 
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Sorszám Mit csinál? 

24; Itt egy GOTO utasítás található a 94-cs sorra, itt 

kezdődik ugyanis a program. 

35—54: A törteket egyszerűsítő rutin. Működési elve a kö¬ 

vetkező: 

A 47-cs sorig LKO-t (legnagyobb közös osztót) ke¬ 
res, az 51-es .sortól pedig ezzel elosztja a számlálót 
és a nevezőt. 

58—60: Kiküszöböli a negatív számokat. 

68—86: A közös nevezőre hozó rutin. Működési elve: 

Az egyeszerűsítő rutinnál leírt módon LKO-t keres, 
majd a 78-as sortól az LKO*LKT = A*B elv szerint 
ki.számolJa a legkisebb közös többszöröst, amellyel 
a nevezőket helyettesíti, a számlálókat pedig a meg¬ 
felelő módon beszorozza. Í82-) 

94—: Ma a főprogram. 

94—98: A kezdeti értékek beállítása a program indításához. 

Itt szerepel az MX változó, amely a kifejezésben sze¬ 
replő számok felső határát adja. Itt van továbbá a 
tömblefoglalás is. 

106—118: A kezdő képernyőt rajzolja ki. 

128— 137: Adatok inicializálása egy új kifejezés .számolásához. 

Ez a ciklus minden bevitel előtt végigfut. 

145—168: A beviteli rutin. Csak a fent leírt billentyűket fogadja 
el. 

176—275: A kifejezés kiértékelése. Több része van. 
197—205: E két sorban történik a zárójelek számlálása. 
214—233: Egy-egy szám .számlálójának, nevezőjének és egé.sz- 
részének karaklerláncbeli helyének megállapítása. 
256—263: Az előbbi három rész beküldése változóba. 
293—298: A hibajavítási rutin. 

316—350: Gyökvonás művelete lehet.séges-e? Ha igen, elvégzi. 
359—374: A kifejezés végignézése, prioritáskeresés. 
430—444: Számolás és összehúzás. 

370—373: Az aktuáli két szám egyszerűsítése. 

378—390: Gyökvonó rutin. 

398—426: A végeredmény kiíratása. 

452—455: Összeadandó rutin. 

463—466: Kivonó rutin. 

474—476: Szorzó rutin. 

484-487: Osztási rutin. 

491—494: Visszatörlés. 

498—510: Ide kerültek a THEN ágak, amelyek túl hosszúra si¬ 
kerültek. 

241-252, 

284-289, 

302-306, 

321—322: Hibaüzenetek. 

Hadd hívjam fel a figyelmet néhány programozási fogadás¬ 
ra: pl. a 2i0-es Söiban a négy alapművelet kódszámmá írását az 
INSTR függvénnyel oldottam meg, a MU$ stringváltozó felhasz¬ 
nálásával. így a fáradalmas IF-THEN ágak helyett egyetlen(!) 
utasítás kiválasztja a megfelelő műveleti jelekhez tartozó kódszá¬ 
mot. Pl. a hibaüzenetek első sora mind az IF ijMAXÉRTÉK 
THEN i=MAXÉRTÉK:NEXT mintára épül: ez arra jó, hogy 
hiba esetén sértetlenül kiléphessünk a FÓR-NEXT ciklusból. 
Ugyanis ha gyakran hibázunk és ilyenkor a ciklus c.sak úgy félbe¬ 
marad, a következő ciklusnyitáskor a gép kissé megzavarodva 
közli velünk, hogy ,,Hé, hé, pajtikám, hát az előző ciklussal mi 
Isze?” Vagy még rosszabb (és alattomosabb) esetekben nem szól 
semmit, csak szép nyugodtan hibásan számol. Előfordulhat az 
is, hogy a le nem zárt ciklusok tömegének maradványai elözönlik 
a memóriát, és megtámadhatják még a programot is. Mindebből 
világosan látható, hogy CIKLUST LEZÁRATLANUL HAGY¬ 


NI SZIGORÚAN TILOS!! A programban rengeteg helyen talál¬ 
kozhatunk az IF ... THEN IF ... THEN szerkezettel az IF ... 
AND ... THEN szerkezettel az IF ... AND ... THEN helyett. 
Az előbbi megoldás ugyan több helyet igényel, mégis gyorsabb 
a program futá.sa. Ugyanis a Commodore BÁSIC ha logikai kap¬ 
csolatban álló feltételekhez ér, az összes ágat kielemzi,, s csak 
ezután törődik azzal, hogy milyen is volt a logikai kapcsolat. Ha 
AND állna a sorban, akkor már az első feltétel hamissága esetén 
hamis az állítás, a BASIC interpreter mégis meg akar biznyosod- 
ni arról, hogy a másik felével mi újság. A THEN IF használatá¬ 
val ha az első feltétel hamis, már nem is törődünk a másodikkal, 
tehát időt takarítunk meg. A 411-es sor megfejté.sét az olvasóra 
bízom. Annyit elárulok, hogy ez a sor a törtvonal kirajzolá.sát 
végzi. Megkérek minden belepiszkálós kedvű olvasót, hogy a 
311-es sort, ha lehet, ne nagyon bántsa. Egy pontos(abb) aritme- 
tikájú gépnek egyszerűen az INT(SQR(...)) függvény sima 
SQR(...) függvénnyel való összehasonlítá.sa is elegendő volna. 
Ám a PLUS/4 pontatlansága következtében kényszerültem eb¬ 
ben a sorban az itt található szörnyeteg alkalmazására. 

Javaslom, hogy begépelés után a kezdő képernyőn szereplő 
kifejezés beírásával próbálják ki a program (illetve a bepötyö- 
gés) helyességét. Helyes működés esetén 333/175-öt, azaz 
1.158/175-öt kell kiírnia a képernyőre. Ha nem, akkor valamit el¬ 
gépelt a kedves olva.só, mert otthon nálam még működött... 

Kívánok jó egészséget a program használatához. 

Nagy Attila 
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PROGRAM 
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o 
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fo ri= k tón-1 
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359 

1fn=1then398 
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SZ(l,l)=S2tlH,l) 


o 

360 

l;=l 

4 35 

sz(i, 2 )=s 2 (ltl, 2 ) 

o 
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: 
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m ( i ) = m ( i 11 ) 
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rém"-Prioritás líGresese- 
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i fi=n-1then442 
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364 
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o 
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440' 
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366 

1 oop 
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g(itl,3)=g(it2,3) 


367 

: 

4 42 
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S2(i,l)=int(El) 
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reni" xxxxxxxxxxx 


0 
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S2(i,2)=int(s2) 
g ( i . .1 - 1 ) = - 1 

462 

463 

i = k 
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389 


464 

gosub68 


o 

390 

return 

465 

sz(i:tl, l)=sztk, l) -sz(k* 1, l> 
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got o430 
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SZOFTVER 


Rodolfó is így csinálta! 


Kis hazánk, haláláig közkedvelt bű¬ 
vészének egyik produkciójában felmuta¬ 
tott egy transzparenst: MA FRISS HAL 
KAPHATÓ felirattal. Ezután, így vezette 
tél a mutatványt: (a szöveghűségért nem 
vállalalok felelősséget!) 

,,Egy ismerős halaskofa megkért, el¬ 
lenőrizzem a szöveg helyességét, mert ki 
akarja tenni a standjára. Kérdem tőle, 
c.sak ma árul halat? — dehogy, állandóan! 
— válaszolta. Akkor ez nem kell. (Letépte 
a MA szót.) No és .szokott büdös halat 
árulni? — Nem! — válaszolta sértődötten. 
Akkor ez sem kell. (Letépte a FRISS szót 
is.) Halon kívül árul mást is? — Nem! — 
hangzott a csodálkozó télelet. Akkor pe¬ 
dig a KAPHATÓ szónak önmagában úgy¬ 
sincs értelme.” (A maradékot is ös.szctép- 
te.) Persze a végén, ,,a halaskofa felhábo¬ 
rodása miatt” éppé varázsolta a papírsza¬ 
lagot. (Nagy taps.) Most valami hasonlót 
szeretnék bemutatni egy gépi kódú ru¬ 
tinnal. 

Komolyra fordítva a szót, az öncélú 
bűvé.szkcdés helyett, induljunk ki egy 
konkrét feladatból: Gépünket software 
szinten ékezesítettük. Az ékezetes kis ka¬ 
raktereket a C-billentyű segítségével jele¬ 
nítjük meg, az ékezetes nagybetűket pedig 
a CTRL billentyű segítségével szeret¬ 
nénk. Ehhez azonban a CTRL kódtáblát 
át kell írni, ami azonban a ROM-ban ta¬ 
lálható. 

Persze a megoldás nem titok! A Tip¬ 
pek és trükkök a Commodore 64-eshez 
című könyv 2.6. fejezete ismerteti a mód¬ 
szert. Eszerint nem kell mást tenni, mint 
az operációs rendszert a ROM-ból a 
RAM-ba másolni, itt végrehajtani a szük¬ 
séges változtatásokat és végül átkapcsolni 
a vezérlést a ROM-ról a RAM-ra. Nem 
értévén egyet a RAM ilyen ,,pazarlásá¬ 
val”, nézzzünk más megoldás után. (A 
MÁSOLÁS szó letépve.) 

Bemelegítésként próbáljuk ki az 1. 
lista szerinti programocskát. Futtatva a 
programot, a képernyőre kiírt első sor 
mutatja a lenyomott billentyű sorszámát 
(nyugalmi helyzetben 64-et), a második 
sor az (esetleg) használt váltóbillentyű 
kódját (nyugalmi helyzetben 0-át), a har¬ 
madik sorban pedig az ,,eredmény” lát¬ 
ható az ASCII kóddal együtt. A kis prog¬ 
ram a demonstráláson túl, hasznos is le¬ 
het, ugyanis a kódtábla átírásához szüksé¬ 
ges adatokat szolgáltatja. 

A lenyomott (tetszőleges) billentyű¬ 
kombináció értelmezésének nagy ,,misz¬ 
tériuma” során érkezünk el a 2. listán be¬ 


mutatott eredeti programrészhez. Ekkor 
már $CB cím tárolja a lenyomott billentyű 
sorszámát, a $0280 cím pedig az (c.sct- 
leg) lenyomott váltóbillentyű kódját. A 
rutin első sora a ($028F) vektor által kije¬ 
lölt címre (alapállapotban a $EB48) irá¬ 
nyítja a vezérlést. Az itt található rutin a 
$028D cím értéke szerint kiszámítja a 
szük.séges kódtábla kezdőcímét, az aláb¬ 
biak szerint: 

0 alaptáblázat $EB81 

laSHIFTtábl. $EBC2 

2 C-táblázat $EC03 

3 C—fSHIFT nem táblázatra mutat, a nor¬ 
mális funkciót hajtja végre. 

4 CTRL táblázat $EC78 

A kiszámított cím szó és fel.ső byte-ja 
a $F5/$F6 címre kerül. (3. lista). Ezután 
,,vissza a téladóhoz”, a $AEA0 címre (2. 
lista), ahol a billentyű sorszámának 
($CB) segítségével az akkumulátorba, 
majd az X regiszterbe kerül a meglélelő 
ASCII kód. (Á további folyamat már nem 
érdekes számunkra.) 

Mint a lentiekből látható, a 
$028F/$0290 vektor átírásával saját ru¬ 
tinra bízhatjuk a kódtáblák kezdőcímének 
kiszámítását. A 3. li.sta a már áthelyezett 
rutin assembly listája. (A kezdőcím azért 
ilyen ,,faramuci”, mert a rutin eredetileg 
egy nagyobb program része.) 

A átírt kódtábla a $C119 eínien kezdő¬ 
dik, majd a $C15A címen egy újabb rövid 
táblázat követi. Ez tartalmazza a kódtáb¬ 
lák valós címeit aLsó/felső byte bontásban. 
Ezután az áthelyezett, és módosított rutin 
helyezkedik el, végül az átkapc.solás. 

AZ ELSŐ KÉRDÉS: Szükség van-e 
a 420—440 sorok tartalmazta eljárásra? 
Nincs! A lista csak a módosított sorokat 


tartalmazza. (Csakúgy mint a további 
listák.) 

A MÁSODIK KÉRDÉS: Szükség 
van-e arra, hogy rutinunk mással is fog¬ 
lalkozzon mint a CTRL billentyűvel? 
Nincs! Ezt a változatot tartalmazza az 5. 
lista. 

A HARMADIK KÉRDÉS: Ha már 
úgyis csak a CTRL billentyű lenyomása¬ 
kor aktivizálódik rutinunk, szükség van-e 
a tábláz.at kezdőcímének kiszámítására? 
Nincs, hi.szen tudjuk, hogy a $C119 címen 
kezdődik! Ez a változat a 6. lista. 

A NEGYEDIK KÉRDÉS: Szüksé¬ 
ges-e egyáltalán a kezdőcím betöltése a 
$F5/$F6 címekre? Nem! Elvégre a kód¬ 
tábla megfelelő értékét mi magunk is be 
tudjuk tölteni az akkumulátorba. Ez a 
(végstT?) változ.at látható a 7.! listán, ame¬ 
lyet összevetve a 2. listával, érthetővé vá¬ 
lik a megoldás lényege. 

A fenti — példákkal bőven illusztrált 
— elmefutlatás célja nem csupán a feladat 
megoldásának bemutatása volt. Bizonyí¬ 
tani akartam, hogy az eredeti ROM ruti¬ 
nok sem ,,szent tehenek”. Céljainknak 
legmegfelelőbb módon, bátran variál¬ 
hatók! 

Beíéjezésül felhívom a figyelmet 
arra, hogy a listákon szereplő kódtábla 
nem ,,virgo intakta”, hanem a saját ékeze¬ 
tes billentyű kiosztásom szerint módo¬ 
sított. 

Szász Sándor 

További felhasználl irodalom: 

A ComiTHxIore 64-cs belső felépítése 

DATA BECKER-NOVOTRADE Kiadó 
Horváth László: Ékezetes karakterek... 

Iti: C-Újság 1991/6. 18. oldal 
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ASSEMBLY 



RAGÉ:1 

O 

Q 

1000 




100 

; 3. LISTA 

O 


1000 




110 

; CTRL RUTIN 


O 

1000 




120 

> 

O 

C119 




130 

*.=tCl 19 


C119 




140 


O 

O 

C119 

FF 

FF 

FF 

150 

. BYTE ÍFF , LFF , SFF , JJ T, tFF, iFF , 'LFT , tEF 


C121 

IC 

17 

AD 

160 

.BYTE S1C,i17,1AD,i9F,11 A,113,SAC,IFF 


0 

C129 

9C 

12 

04 

170 

.BYTE 19C,112,104,I1E,$03,$06,1A5,118 

O 


C131 

IF 

B4 

07 

180 

.BYTE $1F,1D4,$07,$9E,$02,$08,$B5,116 


o 

C139 

12 

A1 

0A 

190 

•BYTE $12,1A1,Í0A,192,$0D,10B,1DC,10E 

o 


C141 

FF 

AA 

0C 

200 

.BYTE IFF,$AA,10C,IFF,IFF,$ 1B,1A7,$FF 



C149 

IC 

FF 

ID 

210 

.BYTE 11C,1FF,11D,lFF,lFr,llF,llC,IFF 


o 

C151 

90 

06 

FF 

220 

.BYTE $90,106,IFF,105,IFF,IFF,111,1FF 

o 


C159 

FF 



230 

.BYTE $FF 


o 

C15A 




240 

> 

o 


C15A 

81 

EB 

C2 

250 KOD 

.BYTE 181,1EB,1C2,1EB,103,ICC,$19,101 


o 

C162 




260 

> 

o 

C162 




270 

; CTRL RUTIN 


C1G2 




280 


Q 

o 

C162 

AD 

8D 

02 

290 

LDA $02SD 


C165 

C9 

03 


300 

CMP #103 


o 

C167 

D0 

15 


310 

BNE Cl 

O 


C1G9 

CD 

8E 

02 

320 

CMP 1028E 


o 

CISC 

F0 

25 


330 

BEQ C2 

0 

C16E 

AD 

91 

02 

340 

LDA 10291 


C171 

30 

ID 


350 

BMI C3 

O 

o 

Cl 73 

AD 

18 

D0 

360 

LDA $D018 


Cl 76 

49 

02 


370 

COR A$0ii' 


o 

Cl 78 

SD 

18 

D0 

380 

STA 1D0IS 

O 


C17B 

4C 

90 

Cl 

390 

JMF- C3 


o 

C17E 




400 

, 

o 

C17E 

0A 



410 Cl 

ASL A 



C17F 

C9 

08 


420 

CMP #108 

o 

o 

ClSl 

90 

02 


430 

B.CC C4 


C183 

A9 

06 


440 

LDA #106 


o 

C185 

AA 



450 C4 

TAX 

o 


Cl 86 

BD 

5A 

Cl 

460 

LDA k:od,x 


o 

Cl 89 

85 

F5 


470 

STA 1F5 

o 

C18B 

BD 

5B 

Cl 

480 

LDA KüDH,X 


CISE 

85 

FG 


490 

STA 1F6 

o 

o 

C190 

4C 

E0 

EA 

500 C3 

JMP 1EAE0 


C193 

4C 

42 

EB 

510 C2 

JMP 1EB42 


o 

C196 




520 

j 

o 


C196 




530 

; ÁTKAPCSOLÁS AZ UJ RUTINRA 


o 

C196 




540 

j 

o 

C196 

A9 

62 


550 

LDA #162 ; SYS 49558 


o 

C198 

A2 

Cl 


560 

LDX #1C1 

o 

C19A 

8D 

8F 

02 

570 

STA 1028F 


C19D 

8E 

90 

02 

580 

STX 10290 


o 

C1A0 

60 



590 

RTS 

o 


ClAl 




600 

. CND 


c 

LINES:51 

SYMBOLE:5 ERRORS:0 

o 

o 

Cl 

-C17E 

C2 

=C193 

C3 -Cl 90 C4 -Cl85 KOD -C15A 

o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


100 

110 

120 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


; 6. LISTA (M0D3) 
; CTRL RUTIN 

BEQ RUT 
JMP ÍEB4B 

9 

RUT LDA #119 
STA 1F5 
LDA #SC1 
STA IFG 
JMP 1EAE0 


LDA #15A 
LDX #$C1 
STA 1028F 
5TX 10290 
RT5 
. END 


READY. 


O 

O 

O 

O 

O 


ÁTKAPCSOLÁS AZ UJ RUTINRA q 


O 

o 

o 


o 

100 

. '■? 

9 í • 

LISTA (M0D4;- 

O 


110 

; CTRL RUTIN 


0 

120 

320 

> 

RUT 

LDY ICO 

O 


330 

LDA 

ICl19,Y 



340 

JMP 

1EAE4 

O 


350 

> 




360 

; ÁTKAPCSOLÁS AZ UJ RUTINRA 



370 

9 




380 

LDA 

#15A 

U 


390 

LDX 

#1C1 


400 

STA 

1028F 


; 

410 

STX 

10290 

O 


420 

RTS 




430 

. END 

O 


READY. 




100 
110 
120 
250 
103) 
2G0 
4 10 
420 
430 
440 
450 
4G0 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


; 4. LISTA (MÓDI; 

; CTRL RUTIN 

KOD .BYTE IS 1,lEB, 1C2 ,lEB, 
lE(-j 100) 100) 119) iGl 
j 

C1 fV.j L A 
TAX 

LDA KOD,X 
STA 1F5 
LDA KOD I1,X 
STA IFG 
C3 JMP 1EAE0 
C2 JMP IED42 
) 

; ÁTKAPCSOLÁS AZ UJ RUTINRA 

LDA #164 
LDX #1C1 


STA 
STX 
RTS 
. END 


102 

102 


'8F 

'90 


READY. 


O 


O 

O 

O 

O 

O 

O 

O 

% 

o 

o 

o 

o 




100 

9 -J • 

LISTA (M0D2) 

O 

o 

110 

; CTRL RUTIN 


J 

120 

280 

9 

9 


O 


290 

LDA 

1028D 

O 

J 

300 

CMP 

#104 

310 

BEQ 

RUT 


o 

320 

330 

JMP 

) 

1EB4B 

O 


340 

RUT 

ASL A 

O 

o 

350 

TAX 



360 

LDA 

KOD, X 

o 

o 

370 

STA 

1F5 


380 

LDA 

KOD+1,X 



390 

STA 

1F6 

o 

J 

400 

JMP 

1EAE0 


J 

410 

420 

; ÁTKAPCSOLÁS AZ UJ RUTINRA 

0 


430 

9 


o 

J 

440 

LDA 

#164 


450 

LDX 

#1C1 



460 

STA 

1028F 

o 


4 70 

STX 

10290 



480 

RTS 


o 


490 

. END 


READY. 


o 


17 
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többet ésszel! 


XV. rész 


Kétféle lemezegységet láttam eddig a C64-essel használva: 
A Commodore 1541-est, amelynek három-négy változata is el¬ 
terjedt, és az SFD 1001-est, amely nagyobb kapacitású és kicsit 
gyorsabb is, de sok programmal nem használható. A továbbiak¬ 
ban elmondottak egy része érvényes ugyan az lOOl-csrc is, de én 
kizárólag a szabványos 1541-est tekintem a mondandóm tár¬ 
gyának. 

Nehéz cldöntcncm, hol kezdjünk hozzá. Talán ott, ahol a 
könyvek is szokták: a lemeznél. Ez egy tokba zárt korong alakú 
fólia; hasonló, csak vastagabb, mint a magnó.szalagok. A lemez¬ 
egység a közepén levő lyuk peremét fogja meg, és úgy forgatja. 
Ezzel egyidőben az író/olvasó tej sugárirányban mozoghat rajta, 
és a tokon levő jellegzetes, hosszúkás résen át így a lemez min¬ 
den pontja elérhetővé válik. A fej mindig a lemez alsó oldalát 
tudja olvasni vagy írni. 

A lemez másik oldala úgy érhető cl, hogy a lemezt megfor¬ 
dítjuk. Érvényes ez az ún. egyoldalas lemezekre is, amelyeknek 
a tapasztalatom szerint mindkét oldala tartó.san hibátlanul hasz¬ 
nálható, persze ha a lemez nem valami selejtes holmi. A lemezen 
jelzések találhatók, pl. IS, 2S,2D, DD, SD, HD. Az első karakter 
a gyártó által használatra alkalmas oldalak száma, 1 = Single, 
2 = Double. A második betű a sűrűség (density). A dupla sűrű¬ 
ség a jelhordozó anyag olyan finom felbontását jelenti, hogy ol¬ 
dalanként 80 sáv is télírható rá. A I54l-es, egy-két igen ritka má¬ 
solásvédelemtől eltekintve csak a szimpla sűrűséget igényli. A 
HD jelzésű lemez 1541-esben nem használható. 

A lemezen az adatok koncentrikus gyűrűk, sávok formájá¬ 
ban helyezkednek el. Minden oldalra 35 sáv írható, a legkülső 
száma az 1-cs. Bővítőprogrammal további öt sáv is télírható, de 
ez a módszer végül is nem terjedt el. 

A lemezegység minden .sávot szektorokra oszt, ezek száma 
változó. Az 1—17. sávokban 21 szektor van, a 18—24-esen 19, a 
25—30-ason 18, a többin 17 szektor. A szektorok számozása O-tól 
kezdődik. Minden szektorban 1 blokk, azaz 256 byte adat tárol¬ 
ható. A blokk és a szektor között az a különbség, hogy a blokk 
az adatok egy mértékegysége, logikai fogalom; a szektor pedig 
a lemez szerkezeti egysége, amelynek vannak szinkronjcl, azo¬ 
nosító, fejléc, ellenőrző ös.szeg és hasonló részei, meg egy adat- 
terület a blokk tárolá.sára. 

A boltban megvett lemez üres. Használat előtt formázni 
kell, néhány, a lemezegységnek szóló parancs segítségével. En¬ 
nek hatására a lemezre mágneses jelek alakjában ráíródik min¬ 
den olyan jelzés, amely a lemezegységet segíti ezután a lemezen 
való tájékozódásban. Minden blokk minden byte-ja kap egy 
meghatározott értéket. Valójában innentől a lemez mindig tele 
van írva adatokkal, csak ezek közül nem minden hordoz szá¬ 
munkra ha.sznos értéket. Egy Icmczoldalon összesen 683 blokk 
hely van. 

A lemezen adatok tárolhatók úgy is, hogy kiválasztunk egy 
szektort, és oda beírunk az adatainkból egy blokknyit. Ha még 
van adatunk, akkor másik szektorral folytatjuk tovább. A mód¬ 
szer kényelmetlensége, hogy az összetartozó blokkok helyét sor¬ 
rendben nekünk kell feljegyeznünk valahová, és mindig tudnunk 
kell, hogy a lemezen még mely blokkok szabadok. 

Lehet másképp is: bízzuk az egészet a lemezegységre! Ne- 
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künk lényegében csak annyi dolgunk van, hogy egymás után kö¬ 
zöljük a tárolandó adatokat byte-onként. Ezeket a lemezegység 
egy önálló, de összetartozó egységben, adatállományban (ango¬ 
lul filc, ejtsd: fájl) helyezi cl, egy általunk megadott névvel azo¬ 
nosíthatóan, miközben önállóan választja ki és könyveli az erre 
felhasználható szektorokat. Hasonlóan automatikus az adatok 
visszaolvasása is. 


í 


O 


(1 . ) 


0 rém *** disk monitor » 49152 

4 rém << open 2, 8,2, '’dlskmon, p. w“ : rém 4,6,10, 

5 read v,w: a=v+w«256 

6 rém << print#2,chrS(vIchrS(w); 

7 fór 1 = 15 to 60; prlnt l''S|''; read vS,c 

8 s=0: fór J=1 to len(vS) step 2 

9 v=(aseCmldS(vS,J))-65)*16+asc(midi(v$,J +1))■ 

10 poke a,v: a=a+l : rém << prlnttt2, chrS(v) ; 

11 s=s+v: next J: if s=c then next 1: goto 13 

12 prlnt i“|J. sor hibás" 

13 rém << close 2 

14 data 0,192 

15 data kcaalnlfmccancppoloabcnapfkcankJ,2446 

16 data docaolmakJaalnabaccaddmbmJdopapJ,1862 

17 data mjcapapfkcafnngkmanaamioaaaclnha, 2069 

18 data maelInhgmaelgamkbaomemanmalfjhea,1982 

19 data gcmalJoamccanmmamlnaadooabacmgjh,2338 

20 data naongacapomajaadjJoamcmlmgJhgaca,2414 

21 data gemakjcacmkjanemncppdkfhfceneaf1,1714 

22 data mambmbmambodmajajahldohkkaaalmad,2280 

23 data aci1imaeaccampppmjanpabhcapomaja,1877 

24 data belnadaccampppmjanpaalcapomajaad,1745 

25 data inaeackmadaccamgmccangmcjicanmma,1784 

26 data cagcmakjalcadnmacajhmcemkgmaeman,1684 

27 data macapomajapik1kJal1fJhcaddmbcadd,2050 

28 data mbcafdmanaplcajhmcemanmaelekekek,1908 

29 data ekcapemakkglcjapcapemaelIkcancpp,2047 

30 data giemncppbigjpgjaacgjaggjdkgakjaa,1705 

31 data Inacaccaddmbmjcanaajcaddmbmjcana,1588 

32 data apblgacaclmbakakakaklnacaccaddmb,861 

33 data cacimbanacacdigamjdkaicjapciJaac,943 

34 data gjalgacampppmjannaplglglemanmaca,1894 

35 data mpppmjannachkJaalfjacagfmákJal1f,2004 

36 data IkcaleppkjgpifiJcaJgppcakfppceJa,2320 

37 data haafcancppnapecaklppemanmamjcepa,2282 

38 data bnelkJal1f1kcalbppkJgplf1JcaJdpp,2093 

39 data glcaklppcampppmjannapgcakoppeman,2271 

40 data macaddmbcapomajapfInchmccaddmbca,2017 

41 data pomajaoklnckmccaejmcknaaacmjabpa,2117 

42 data bökJdbcaonmbkcancamgppkcaacamppp,2026 

43 data Jnoamcolnaphcammppcagomcemanmaca,2402 

44 data cmmckcancamjppkcaalnoamccancppol,2399 

45 data naphcammppkJdccaonmbemmJmbincamc,2464 

46 data kcapknchmccahimciochmcincimcknck,1894 

47 data mccahimclockmcinclmckcapcamjppkc,2123 

48 data aalnbpmccancppoloaannapfemmmppff, 2453 

49 data dbdkdbddcadacadbdlcadadakcapcamj,962 

50 data ppkcaalnebmccancppoloaalnapfemmm,2559 

51 data ppeccnfacadbddcadakJapklkcalcalk,1398 

52 data ppkJaacalnppcamappkJank1kcalcalk,2117 

53 data ppkjabkcgnkamccalnppemmappcdkjan,2266 

54 data camdppkjapemmdppkcdadlojakJaadoi , 2080 

55 data 1apjgjdkgaancabccaeeejfdelcnenep, 1279 

56 data eoejfeepfccaanjldlojalklcagcmakj , 1549 

57 data bccancppkcai1JoamccjhpmJcalaaekJ,2038 

58 data conaadlJoamccancppkJaalfnemlmkna, 2481 

59 data ofkjJcemncppknabacnaagmmaeaclaab,1862 

60 data gaglglemanmacagfmakjdkkcdoemolma,1864 


o 

13 


•65 

J 

o 

o 

Q 

O 

O 


O 

O 

o 

o 









0 rém »»* dós commander » 49920C,“<$ lcmd>"[,dn3D 

I rém (c) hódi gyuia - 9304 ^ 

4 rém << open 2,8,2,“doscmd,p,w"; rém 4,6,10,13 

5 read v,w: a=v+w*256 

6 rém << printtt2,chrS(v)chrS(w); j 

7 fór i = 15 to 26: print read vS,c 

8 s=0: fór J=1 to len(v$) step 2 

9 v=(asc(mldS(vS,J))-65)*16+asc(midS(v$,J+1>)-65 J 

10 poke a,v: a=a+l ; rém << printít2, chr$< v) ; 

II s=s+v: next J: if s=c then next i: goto 13 

12 print i"|||.sor hibás" 

13 rém << cl őse 2 

14 data 0,195 ^ 

15 data cahjaanaademinmdcahdmdcalnppeica,1698 

16 data hjaapaafcapblhigjkcahmmdginaadem,1884 

17 data 1nmdkaaalbl1mjcepaademkkmdkJgaif,2179 Q 

18 data 1Jcanfpdkf1kcaleppkf1JcaJgppkaad,2441 
|J9 data cakfppi fpicakfppkgJanaceiinapbkg, 2590 

20 data picamnlnkjcacancppkgjanabdcak fpp, 2361 

21 data napecanhkkcaobpppaaekaacnancogjb,2580 

22 data emecpgcapnkocajoknemkdlgkfIkmjai,2191 

23 data JaaemJamJaaek Jai i f Iki f 1 i gacahmmd, 1769 C-- 

24 data kfIkcaleppkJgpcaJgppkaaacakfppca,2179 

25 data ncppmimjannapfemkIppkjgpif1Jcanf,2677 

26 data pdemohpp,805 



A két tárolási módszer keverhető, de csak ha vigyázunk a 
lemezegység megtclelő tájékoztatására a lemez tartalmáról. 
Részletesen el fogom mondani, hogy a lemezen mi hova kerül, 
és mi a különféle byte-ok Jelentése. Ezek az adatok BASIC prog¬ 
ramozás során is Jól hasznosíthatók, adatbáziskezelő és lemez¬ 
karbantartó programok ké.szítésekor. 

Az efféle vizsgálódáshoz közvetlenül bele kell pillantanunk 
a lemezen tárolt adatokba, esetleg változtatnunk azokon. BASIC 
parancsok alakjában ez, főleg eleinte, nehézkes dolog lenne, 
ezért használjuk inkább külön c célra készített, hatékony, kényel¬ 
mes programot, azaz egy lemezmonitort. Ha esetleg még nincs 
ilyesmi a gyűjteményedben. Javaslom, hogy írd he az 1. mellék¬ 
let programját. Ez létrehozza az általam ismert legrövidebb le¬ 
mezmonitort, amelyet az egyszerűsége ellenére is Jól használ¬ 
hattam éveken át. Ha egyből lemezre kívánod a programot íratni, 
akkor a külön megjelölt sorokból csak a ,,REM {(” utáni része¬ 
ket hagyd meg. A nem C64-esen kísérietezhetöket sajnos nem 
tudom kisegíteni. A program használatára most nem térhetek ki, 
mert mást is szeretnék elmesélni. 

A lemezre írt állományok legfontosabb adatai egy külön te¬ 
rületre íródnak, ennek neve katalógus (könyvtár, catalog, direc- 
tory). Ebben megtalálható az állomány hossza (az általa elfoglalt 
blokkok száma), neve, típusa, vagy például első blokkjának he¬ 
lye a lemezen. Ezt a katalógust könnyen megnézhetjük a követ¬ 
kező parancsokkal; LOAD "$",8 és LIST. A használatánál el¬ 
mondtam (igaz ez egyébként a SAVÉ, és VERIFY parancsokra 
f is). Itt a betölteni kívánt lile neve a '$', ami a katalógust Jelenti. 

A 8-as szám az alapértelmezés szerinti első vagy egyetlen le- 
[ mezegység eszközszáma. Ha több lemezegység is a gépre van 
t kötve, akkor az eszközszám, minden lemezre vonatkozó prancs 
esetében 8-tól 11-ig értelemszerűen megváltozhat. 

A LOAD hatására a lemezegység elolvassa a lemez kataló¬ 
gusát, és formailag BASIC program alakjára rendezve átküldi 
azt a gépnek. Mivel a katalógus ezután a gépben úgy van tárolva, 
mint egy BASIC program, ezért a LIST paranccsal nézhető meg, 
akár többször egymás után. Az első sor a fejléc, a lemez nevével 
és azonosítójával. Ez utóbbi két karakter hosszú, és csak a leme¬ 
zek megkülönböztetésében van szerepe, inkább a magunk, mint 
a gép számára. Alattuk következik minden felvett állomány 
hossza, neve, típusa. 
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A típus jele mellett két egyébjel is feltűnhet. A azt Jelzi, 
hogy az állomány az írásra való megnyitás után nem lett lezárva. 
Ilyen műhiba rendes esetben csak ritkán fordulhat elő, kijavítá¬ 
sáról még szólok majd. A '(' Jel arra utal, hogy ez a file az egye¬ 
di törlés ellen védve van. Ennek feloldásához szükség van egy 
célprogramra vagy egy monitorra; szintés később fogom ezt el¬ 
magyarázni (sajnos nem mondhatok el mindent egyszerre). 

A katalógus a szabad (még felhasználható) blokkok számá¬ 
nak kiírásával végződik. Ez a sz.ám nem függ össze szigorúan 
a valóban felhasznált blokkok számával, mint ahogy az állomá- 
nyokjelzett hossza is lehet más, mint a valóban igénybe vett terü¬ 
let mérete. Az eltérésnek nagyon sok oka lehet, szándékos is és 
véletlen is. Megszüntetéséről, azt hiszem, a BAM bemutatása¬ 
kor fogok beszélni. Egyébként mivel a katalógus számára a le¬ 
mezegység a teljes 18-as sávot fenntartja, ezért egy üres lemezen 
pontosan 664 szabad blokknak kell lennie. 

A katalógus betöltésekor megadhatunk .szűrőfcitételeket is. 
A listán így csak azok a nevek Jelennek meg, amelyek megfelel¬ 
nek minden feltételnek. Ha a '$' Jel után megadunk egy nevet, 
akkorakatalógu.sból e.sak annak adatait kapjuk meg. Pl. a LOAD 
"$NEV",8 hatá.sára csak a NÉV nevű file Jelenik meg a kataló¬ 
gusban, ha létezik ilyen. 

Használhatunk ún. globális neveket is. Ez azt Jelenti, hogy 
két különleges (dzsóker) karakter .segítségével nemcsak egy 
adott állományt, hanem bizonyos állományokat együtt is azono¬ 
síthatunk. Az egyik ilyen Jel a ,,?”. Ha a névben ilyet írunk, ak¬ 
kor az a név Jelenti az összes olyan nevet, amelyekben a többi 
karakter megegyezik az általunk megadottal, de a ,,?” helyén 
bármi állhat. A példa segíthet: a "S'.L.x" nevet adva a kata¬ 
lógusban megkapjuk (ha léteznek) az "AO.TX", "AO.GX", 
"A/.9X", "AT.!X" nevű állományok adatait is. Ugyanakkorpl. 
a ,,FIL?” nem Jelenti a ,,FIL” nevet, mert abban a kérdőjel he¬ 
lyén nincs semmi. 

A másik dzsókerjei a Ennek helyén és attól kezdve 
minden helyen bármi állhat, és a névnek legalább a csillag előtti 
karakterig kell tartania. Például az "S*" az összes S-el kezdődő 
nevet Jelenti, közte az ,,S’^ is. A csillag után írhatunk további 
karaktereket is, de ezeknek nincs semmi hatása. A két dzsóker 
kombinálva is ha.sználható. 

További szűrést írhatunk elő a file típusára is, az ,,=” hasz¬ 
nálatával. Ez után kell írni a típus rövidítését, amely megegyezik 
a katalógusban megfigyelhető típusjelek első betűjelével. Bár 
most nem magyarázom el a Jelentésüket, felsorolom az összes 
típusjelzést: DELK, SEO, PRG, USR, REL. Tehát például az 
összes "DA"-val kezdődő, legalább négybetűs nevű, PRG típu¬ 
sú file listázása így kérhető: LOAD "$DA??* = P'',8 és LIST. 

A globális nevekről tudni kell, hogy a katalógus betöltése¬ 
kor, állomány törlésekor az összes illeszkedő nevet Jelentik; 
megnyitáskor, betol réskor az első illeszkedő nevet; de egyes ese¬ 
tekben, mentéskor, átnevezéskor egyáltalán nem használhatók. 

A katalógus LOAD-os betöltésének az a súlyos hibája, hogy 
a tárban levő BASIC program ezzel természetesen törlődik. En¬ 
nek a kiküszöbölésére írtam azt a kis programot (szintén 
C64-re), amely a 2. melléklettel állítható elő. A program 
$C300-ra töltődik, tehát Jól megfér a Icmczmonitorral. Hívása: 
SYS 49920|,"parancs"[,dn]]. A ,,dn” hiányában az utoljára 
használt egy.séget, illetve a 8-ast szólítja. Ha a ,,parancs” egy 
,,$-ral kezdődik, akkor a katalógust kapjuk, pontosan ahogy ed¬ 
dig elmeséltem, de a BASIC tár érintése nélkül. 

Ha a,,parancs” más karakterrel kezdődik, akkor azt a prog¬ 
ram a lemezegységnek DOS-parancsként küldi el. Ha a ,,pa¬ 
rancs” hiányzik vagy üres, akkor a lemezegység hibaüzenetét 
írja ki. Hogy ezek mit Jelentenek, arról beszélünk legközelebb. 

Hódi Gyula 
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pálya végén a golyókat köpködő nyílás alá 
érdemes állni, és onnan célszerű lőni a 
szörnyet. Ha sikerült megsemmisíteni tá¬ 
madónkat, rövid töltés után egy jutalom¬ 
képet kapunk. Előfordulhat, hogy a há¬ 
rom lehetőséget (szerintünk kevés!) ha¬ 
mar télhasznál juk, ekkor a végszó mellett 
ítéletnapig várakozhatunk míg ismét él¬ 
vezhetjük a program örömeit. Rövid gya¬ 
korlás után, már élctvcsztcség nélkül jut¬ 
hatunk a következő szintre. A második pá¬ 
lya után kell lemezet cserélnünk. Ahhoz, 
hogy a dicsőségtáblázatra felkerüljünk, 
minimum 70 500 pontot szükséges gyűj¬ 
tenünk. Kár hogy eddig demo-verziót 
nem készítettek, ahol nem a játékra kell 
koncentrálnunk, hanem a csodálatos gra¬ 
fikára. A program vége legyen titok! 
Mindent összevéve az ÁGON Y kategóriá¬ 
jában egy igen jó játék. Képzett lövöldö- 
ző.söknek könnyűnek tűnhet, mégis min¬ 
den olvasónak ajánljuk. 



A programban 
alkalmazható trükkök 


1992 tavaszán a PSYGNOSIS magas 
szaktudású gárdája megalkotta a lövöldö¬ 
zős játékprogram csúcsát, az AGONY-t. 
Kifogástalanul megrajzolt (képtárba illő) 
képek, valamint (CD minőségű) gyönyö¬ 
rűen komponált muzsikák tömege hallha¬ 
tó. Három IMB-os lemezen került forga¬ 
lomba. Töltögetés közben a szignál után 
két nagyszerűen összeállított képpel talál¬ 
kozunk. Az cl.ső egy hegyet és a körülötte 
elterülő, növényekben dús tájat ábrázol. A 
picture-ön találunk még egy égő tát is. 
Csodálatos zongorakíséret mellett átbön¬ 
gészhetjük a játék alkotóinak névsorát. A 
buttolás sajnos egy idő után unalmassá vá¬ 
lik. A mousc aktiválását követően megje¬ 
lenik a második képecske is. Hosszas vá¬ 
rakozás után végre elkezdhetünk játszani. 
A hat pálya háttérképei igen magas.szintű 
grafikai tudást tanúsítanak. Sajnos az első 
szint zenekísérete nem olyan kiemelkedő, 
mint azt már meg.szoktuk. Fantasztikusan 
animált mozgású bagollyal próbálhatunk 
eljutni a pálya végére, miközben mesesze¬ 
rű figurák állják utunkat. Találkozhatunk 
pókokkal, halacskákkal és a gyermeki 
képzelet lényeivel. Extra fegyverekben 
sajnos nem bővelkedhetünk, maximum 
két védőkard és erősebb lövés .szerezhető 
az üvegcsék felszedésével. A szintek vé¬ 
gén ,,órákig” kell lőnünk egy tárgyat, 
vagy egy szörnyet. Az utolsó embert pró¬ 
báló téladat teljes fegyverzetben könnyeb¬ 
ben elvégezhető. Természetesen az első 



Az égő fa képénél, a futó program 
közben gépeljük be: FANTASY, hatására 
a játék közben FI—F5 billentyűkkel kü¬ 
lönböző extrákhoz jutunk. Pl. megnyo¬ 
máskor az alsó kardot, F2-nél a felsőt 
kapjuk. F3-mal erősebb lövedékhez, 
F4-gycl EXTRA LIFE-hoz juthatunk. 
F5-tel pedig az eddig felsoroltakat össze¬ 
vonva kaphatjuk meg. A RETURN-nel 
pedig pályát léphetünk. 



^5 SZEPTEMBER . 20 

















HARDVER 


& 



Ezúttal szeretnénk felhívást intézni olvasóinkhoz! Sa¬ 
ját, vagy csoportosan elkészített munkáikat, leírásai¬ 
kat, cikkeiket örömmel fogadjuk, és az arra érdeme¬ 
seket rovatunkban közöljük. Reméljük, hogy sok 
amatőr cikkíróval találkozunk. A KOLIBRI AIR 
LÉGI SZOLGÁLAT KFT. (Budaörsi Repülőtér, tel.: 
166-84-50, 166-84-67) jóvoltából a beérkezett iromá¬ 
nyok között négy személy részére budapesti sétare¬ 
pülést sorsolunk ki. A gépelt, vagy nyomtatott szöve¬ 
get, esetleg illusztrációs anyagot tartalmazó levelet, 
valamint egy válaszborítékot a (FRIEND TWO 
CREW) 1388 Bp. PL: 701/55 levélcímre lehet elkül¬ 
deni. A nyertesek nevét a sorsolást követő számban 
megjelentetjük. 


Az AMIGA ROVATBAN megjelent és egyéb játék-, felhasználói-, dcmo programok meg¬ 
rendelhetők. Bélyeggel ellátott válaszborítékért listát küldünk. (Vízhatlan csomagolás.) Levélcím: 

FRIEND TWO CREW 1399 Bp. PL: 701/55. 


A Centronics csatoló 


Csaknem minden számítógépen van 
ilyen c.satoló (interfész). A C64 is képes 
a télhasználói kapun (user port) keresztül 
ilyenfajta adatátvitel emulálására (emulá¬ 
ció = különböző típusú rendszerek össze¬ 
illesztése gépi úton, hogy adatkonverzió 
történhessen). De hogyan is működik a 
Centronics csatoló tulajdonképpen? 

* 

Az ötvenes években az akkor még ki¬ 
csinek számító, nyomtatókat gyártó Cent¬ 
ronics cég fejlesztette ki ezt a csatolót, 
ami időközben világszabvánnyá lett. Ma 
már minden nyomtatót csak ezzel .szerel¬ 
nek fel. Régebben a nyomtatógyárak szin¬ 
te tetszésük szerint mindenféle más csato¬ 
lókat is ha.sználtak. Kalandos átviteli pro¬ 
tokollok voltak ennek a következményei. 
A felhasználó arra kényszerült, hogy a 
.szoftverjét is a nyomtató gyártójánál ve¬ 
gye meg. A Centronics cég a PC és a peri¬ 
fériák közötti adatátvitel újszerű módját 
vezette be. 

Ez a csatoló több vezérlő vezetéket 
tesz szükségessé, amik az átvitelt irá¬ 
nyítják. 

1. Storbe (kapuzójel) vezeték: 

Szinkronizált bemeneti jel az adatje¬ 
lek párhuzamos beolvasásához. Normál 
esetben Hl (magas helyi értékű bájt). A 


LO (alacsony helyi értékű) szinten fogad¬ 
ja az adatokat. 

2. Aeknowledge (ACK, nyugtázó) 
vezeték: 

A nyomtató ezen a vezetéken LO (ala¬ 
csony) szinttel jelenti a számítógépnek, 
hogy az adatokat fogadja. Normál e.sctbcn 
ez a vezeték Hl (magas) szinte van. 

3. Busy (foglalt) vezeték: 

Ezen a vezetéken keresztül jelzi a 
nyomtató a számítógépnek, hogy még 
nem kész az adatok fogadására. Még 
,,foglalt”, azaz a korábbi adatok feldol¬ 
gozását végzi. Ha tehát a gép mégis ada¬ 
tokat küldene, azok elvesznének, az aláb¬ 
bi feltételek mellett ez a vezeték Hl 
(magas): 

a) A nyomtató pufferje tele van. 

b) A nyomtató OFF LINE, vagyis 
nincs a számítógép rendszerébe 
kapcsolva. 

c) A nyomtató ERROR (hiba) jelzést 
ad. 

d) RÉSÉT (alapértékre állítás) ese¬ 
tén. 

4. Select (kiválasztó) vezeték: 

Az ezen a kimeneti vezetéken lévő 
jel a nyomtató állapotát (státuszát) mutat¬ 
ja 

(OFF LINE = LO, ON LINE = Hl). 


5. Rését (alapállapot): 

Bemeneti jel, ami a nyomtatót a be¬ 
kapcsoláskori állapotába állítja. Csak ek¬ 
kor veszi át a nyomtató a DlP-kapcsolók 
paraméterbeállítását. Normál esetben ez 
a bemenet Hl (magas) állapotú. 

6. Fault (hiba) vezeték: 

Ez a jel a nyomtatóban fellépő hibát 
jelzi. Ha hiba keletkezik, ennek a vezeték¬ 
nek a jelszintje LO (alacsony) lesz. 

7. Paper empty (papír üres) vezeték: 

A nyomtató kimeneti jele. Amikor a 

nyomtatóba beépített mikrokapcsoló a pa¬ 
pír kifogyását érzékeli, ezen a vezetéken 
a jelszint Hl (magas) lesz. 

8. + 5 V DC (-1- 5 V egyenáramú) 
vezeték: 

A Centronics csatoló hüvelyének fe¬ 
szültségellátása. Vigyázat! Nem minden 
nyomtatóban van. 

9. Data 1—8 (1—8 adat) vezetékek: 

A korrekt, kifogástalan adatátvitel¬ 
hez nincs mind a nyolc jelre szükség. 

A felhasználói kapun (user port) 
minden szükséges csatlakozás megvan. A 
párhuzamos (parallel) kábel a kapcsolási 
vázlat (1. ábra) alapján nagyon könnyen 
elké.szíthető. Ha a nyomtató és a C64 kö¬ 
zötti távolság nem túl nagy, a kapcsolási 
vázlatban ábrázolt két integrált áramkör 
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Nvomtatómeghajtó egyszerűen. Egy méter alatti 
kábelhossz esetén az IC-k elhagyhatók. 


(IC) is elhagyható. Egyébként ezek élet- 
fontosságúak a CIA számára a felhaszná¬ 
lói kapun (user port). 

A sok vezérlővezeték közül a C64 
számára csak kettő fontos, a Busy és az 
Acknowledge. A többit helyettesítheti egy 
jó szoftver is. A nyomtató működése ezzel 
problémamentes. Mivel a .soros (.serial) 
csatolón .semmi nem megy át, a felhaszná¬ 
ló a nyomtatót sokkal szélesebb határok 
között tudja használni. Csaknem levél mi¬ 
nőségű (NLQ) írásmód, hatvány kitevők 
és indexek írá.sa, változó sortávolság egy¬ 
szerűen lesznek beállíthatók. Minden uta¬ 
sítás közvetlenül a nyomtatóra hat, nem 
megy át szoftverszűrőn, mint az interfé¬ 
szeknél. Ezek ugyan átállíthatók lineáris 
működésre, ekkor azonban már nem 
l(X)%-ig komnpatibilisck. 

A Centronies-csatoló legnagyobb 
előnye annak világszabvány voltában van. 
Mindegyik nyomtató csatlakozó dugasza 
és annak érintkezőkiosztása azonos, és 
azonos idődiagrammal is működik. Az 
egyetlen eltérés a 18. érintkező (pin) kap¬ 
csolásában van. Néhány készüléknél ezt 
szabadon hagyják. Ezért ezek váltója táp- 
feszültség hiányában nem működik. Ilen 
esetben egy dugaszolható hálózati feszült¬ 
ségforrás segít. Mivel a legtöbb nyomtató 
váltója nem igényel külső c.satlakozást, 
jobb a kábelt mindig beforrasztani. 
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Érintk. sz. Jelvezeték neve 


1 

Strobe (kapuzól 

2 

Data 1 

3 

Data 2 

4 

Data 3 

5 

Data 4 

6 

Data 5 

7 

Data 6 

8 

Data 7 

9 

Data 8 

10 

Acknowledge (nyugtázó) 

11 

Busy (foglalt 

12 

Paper emply (papír végei 

13 

Select (kiválasztás) 

14 

NC (nem használt) 

15 

NC (nem használt) 

16 

Signal GND (Jel föld) 

17 

Chassis (készülékváz) 

18 

+ 5 V 

19 

Gnd (föld) 

20 

Gnd (föld) 

21 

Gnd (föld) 

22 

Gnd (föld) 

23 

Gnd (föld) 

24 

Gnd (föld) 

25 

Gnd (föld) 

26 

Gnd (föld) 

27 

Gnd (föld) 

28 

Gnd (föld) 

30 

Gnd (föld) 

31 

Rését (alapáll.) 

32 ■ 

Fault (hiba) 

33 

— 

34 

— 

35 

5 V-ra feltöltve 

36 

Select in (kiválasztás bel 


Tippek és trükkök 

Módosítások COMMODORE PLUS /4 gépen 

Néhány jól ha.sználható, egyszerűen egyetlen címen levő tártartalom megváltoztatásával megvalósítható módosítást találhatunk a 
következő táblázatban. 

Kiadványokból összegyűjtve készült ez az ismertető. 


Új tartalom, hatás 


Módosítandó cím Új tartalom, hatás 


M('xlo,sítandó cím 


LIST hatástalanító 

POKE 774, 187 vagy 
POKE 774, 0 

LIST engedélyező 

POKE 774, 110 

SAVÉ hatástalanító 

POKE 816, 136 

SAVÉ engedélyező 

POKE 816, 164 

l.OAD hatástalanító 

POKE 814, 239 

LOAD engedélyező 

POKE 814, 74 

RUN/STOP hatástalanító 

POKE 806, 103 

RU N/STOP engedélyező 

POKE 806, 101 

Billentyűzet hatástalanító 

POKE 1343, 0 

Billentyűzet engedélyező 

POKE 1343, 10 

Billentyűzet ismétlés-tiltó 

POKE 1344, 64 

Billentyűzet ismétlés engedélyező 

POKE 1344, 120 

Csak a léptető, a DEL és a 

POKE 1344, 0 

CRSR ismételhet 

(léptető = szóköz) 

Billentyűzctpuffcr-törlő 

POKE 239, 0 

Karakterszín-beállítás (0—15) 

POKE 1339, X 

Sorszám kiíratás letiltása LIST-nél 

POKE 22, 35 

Sorszám kiíratás engedélyezés LIST-nél 

POKE 22, 25 

Sorszám kiíratás olvashatatlan LIST-nél 

POKE 22, 32 

Képernyő kikapcsolás 

POKE 65286, 11, vagy 
POKE 65286, 

PEEK (65286) AND 239 


Képernyő bekapcsolása 


CFRL/S kombináció letiltás 
CTRL/S kombináció engedélyezése 
Hanggenerátorok hangerejének maximálisra 
állítása 

Hanggenerátorok kikapcsolása 


POKE 65286. 27 vagy 
POKE 65286, 

PEEK (65286) OR 16 
POKE 2039, 6 
POKE 2039, 0 
POKE DEC ("FFir, 7 
ill. POKE 6.5297,7 
POKE DEC("FFI1 ",0 


ill. POKE 65297,0 

Funkció billentyiTk letiltása: FÓR R=1 TO 8; KEY 

R," NEXT R 

Funkció billentyűk eredeti állapotba hozása SYS 62359 
Commodore plu.s/4-cs gép BASIC-jénck 
kifejlesztői: SYS 52651 

(A képernyőn négy név jelenik meg.) 

Egy kitöröli program visszementése: POKE 4097,1 : RENUMBER 
POKE PEEK (43) + PEEK (44) • 256,1 : vagy SYS 34840 : SYS 34891 : CLR 


Figyelem! Ha a billentyűzet használatát letiltjuk, ezt a POKE pár bebillentyűzé- 
.sével nem lehet feloldani, mert azt nem tudjuk beadni! 

Összeállította: 

Loós József 
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Hobbi ELEKTRONIKA 

C-64 bővítések 


CPU STOP/RÉSÉT a C-64-be 


Ez az egyszerű áramkör a C64 komfortfo¬ 
kozatát növeli. Bizonyára sok gcptulajdo- 
nosnak szemet szúrt már, hogy egy esetle¬ 
ges programkiakadás csak úgy szüntethe¬ 
tő meg, ha a hálózÁiti kapcsolóval kikap¬ 
csoljuk a gépet. El lehetne azon vitatkoz¬ 
ni, hogy ez mennyire korrekt műszaki 
megoldás. Lehet érveket felhozni mellette 
is, ellene is. Az ember gyakorlati érzéke 
viszont azt súgja, hogy ha ez a probléma 
megoldható más módszerrel, ami jobban 
kíméli a gépet, célszerűbb azt választani. 
Mivel a számítógép CPU-ja rendelkezik 
RÉSÉT lehetőséggel, élni is lehet vele. A 
gép konstruktőrei — nem tudni miért — 
nem foglalkoztak ezzel, pedig egy járulé¬ 
kos nyomógomb beépítése nem drágította 
volna meg számottevően a gépet. 

A RÉSÉT gomb azonban utólag is 
beépíthető. Ez semmilyen átalakítást nCm 
igényel. Egy nyomógombot kell a RÉSÉT 
vonalra kötni, ami a működtetésekor ala- 
c.sony szintre húzza a RÉSÉT vonalat. Az 
1. ábrán látható kapcsolási rajzon e fel¬ 
adatot valósítja meg a K 2 . 

A CPU STOP másképpen funkcio¬ 
nál. Bizonyára mindenki találkozott már 


olyan programmal, játékkal, amelynek 
működését szerette volna adatvesztés nél¬ 
kül megszakítani, majd újraindítani. Az 
esetek többségében ez lehetetlen. Egy kis 
átalakítással a C64-et hardver oldalról ké¬ 
pessé lehet erre tenni. A probléma megol¬ 
dására a CPU DMA-ja (Dircst Memory 
ACCess) ad lehetőséget. Ha ezt a vonalat 
logikai nullára húzzuk, a CPU megszün¬ 
teti az adatforgalmat és a rendszerbuszt 
külső hozzáférésre tartja fenn. Ez a külső 
hozzáférés minket most nem érdekel, 
mert nem akarunk adatforgalommal fog¬ 
lalkozni, csupán azt használjuk ki, hogy 
a gép ezalatt nem dolgozik, az adatforga¬ 
lom lefagy benne. Ehhez azt kell tenni, 
hogy a CPU DMA jelű lábát az órajellel 
szinkronizálva logikai nullára kell húzni. 
Ezt végzik az Fi, D flip-flop-ok. 

Az Fi tulajdonképpen egy kettes osz¬ 
tó. Ki-et működtetve Q-ja valamilyen lo¬ 
gikai állapotba billen. Ki-et újraműköd¬ 
tetve a logikai állapot ellenkezőjére vált. 
Ezt a jelet az F 2 adatbemcnctérc vezetjük, 
ami í>2 hatására a Q kimenetre kerül. 
Ez a jel működtet a DMA vonalat. Ha 
alacsony szintre húzza, a CPU megáll. 



]. ábra 


2. ábra 


Mindaddig nem változik az állapota, amíg 
Ki-et újra meg nem nyomjuk. Ezek hatá¬ 
sára minden az ellenkezőjére vált és a 
program tovább fut. 

Az áramkört egy kisméretű nyomta¬ 
tott áramköri lapra lehet megépíteni, me¬ 
lyet a számítógép házába kell beszerelni. 

Az alkatrészek beültetését a 2. ábra 
mutatja. A panelre a K,, K 2 Hall kapcso¬ 
lók is ráépíthetők. (A panel és ezek a kap¬ 
csolók a szerző egységcsomagjából be¬ 
szerezhetők. Cím a cikk utáni hirdetésben 
megtalálható. A kis nyomtatott áramköri 
panelt a Cassette csatlakozó fölé lehet be¬ 
szerelni. Itt a K,, K 2 -nck megfelelő helyen 
át kell fúrni a C64 műanyagházát és két 
távtartóval rögzíteni az áramkört. A pa¬ 
nelre menő öt vezetéket a gépen belül a 
bővítőcsatlakozó jelzett lábaira célszerű 
forrsztani, így nem kell összevissza huza- 
lozni a gépet és a panelt, mert itt egymás¬ 
hoz közel vannak a megfelelő forrasztási 
pontokat. A Hall kapcsolókra nem kell 
gombsapkát tenni. 

Az áramkör elkészítése, élesztése kü¬ 
lönösebb szakértelmet nem igényel, csu¬ 
pán arra kell nagyon odafigyelni, hogy a 
C64-re menő vezetékeket jó helyre for¬ 
rasszuk. 

Figyelem! A RÉSÉT áramkört építe¬ 
ni szándékozóknak .segít a .szerző HOBBI 
ELEKTRONIKA üzletének szolgáltatá¬ 
sa. Az üzletben működő mintadarab meg¬ 
tekintése mellett vásárolhat panelt, egy¬ 
ségcsomagot. Cím: Bp. VII. Dózsa Gy. út 
16., tel.: 122-8892. Részletes árajánlat a 
2. oldalon megjelent hirdetésben megta¬ 
lálható. 
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Malom játék 


A malomjáték megvalósítása számítógépen. Azért választot¬ 
tam ilyen egyszerű programot, hogy akinek nincs játszótár¬ 
sa, az se untakozzon. Ha komplikált programot próbálok csi¬ 
nálni úgy, hogy a számítógép is,,játsszon”, percekbe telt vol¬ 
na a gondolkodási ideje (Basic-ben). így csak pár másod¬ 
perc. A program kb. 315 soros. 

A menü megjelenik: Fl-gyel változtathatjuk, hogy 24 lé- 
péses legyen vagy három korong összegyűlésekor vége le¬ 
gyen. A 24 lépéses játékban az nyer, akinek több malma (há¬ 
rom korongja) van. 

F3-mal elérhetjük, hogy a számítógéppel játsszunk. 

F5-tel változtathatjuk, hogy a számítógép kezdjen vagy 
a használó. Ha két ember játszik, az F5 nem ér semmit. 

Bármely más gombbal indul a program. 

Kis várakozás után vagy a számítógép, vagy az első já¬ 
tékos kezd. Amennyiben az utóbbi, akkor be kell gépelni a 
lépés helyét (A—X). Kicsit furcsán, de berak a betű he¬ 
lyére. 

A jobb alsó sarokban pedig az időt írja ki. A számítógép 
nem időre játszik. Nekünk 20 másodperc áll a rendelkezé¬ 
sünkre. Ez pont elég, de ha mégsem, 20 másodperc után le¬ 
vesz egy korongot, és újra kezdi a visszaszámlálást. 

Amennyiben valamilyen sürgős dolgunk akad, nyomjuk 
meg a —-at. Ekkor ,,eltűnik” a képernyő (hogy ne tudjunk 
csalni) és ismert dallamokat hallunk. 

Ha 24 lépésest játszunk és összegyűlik egy malom, ak¬ 
kor levesz egy korongot az ellenféltől, ha nem 24 lépésest, 
akkor ő lesz a nyertes. 

Összefoglalva: 24 mezőnk van és az a cél, hogy össze¬ 
gyűljön — egymás mellett) három korong akármilyen 
irányban. 


Kiírja a nyertest és az igénybe vett lépések számát (dön¬ 
tetlen vagy 24 lépéses esetén ez mindig 24), és egygomb le¬ 
nyomása után visszaugrik a menüre. 


A lista: 
100-330-ig 
330 —650-ig 

700-770-ig 

800 - 870-ig 


910 

1000-470 és 
1600-1630-ig 


1500-1580-ig 
1700-1830-ig 
1900-21000-ig 


2200-2320-ig 

2400-2770-ig 
2900-4030-ig 
4100-4110-ig 
4200-4320-ig 


a menü (közben az első zene megy) 
beállítás, második zene és a pálya felállí¬ 
tása 

első játékos (amennyiben a számítógép az 
első játékos, úgy ugrik a 2700-as sorra) 
a második játékos (amennyiben a számító¬ 
gép a második játékos, akkor ugrik a 
2400-as sorra). 

Mindkét esetben 1900-ra is ugrik, 
visszaugrik a 700-as sorra 
ha begépelte a betűt valamelyik játékos, 
az 1000. sortól kiválasztja a megfelelő ka¬ 
rakterhez tartozó pozíciót és odarakja a ko¬ 
rongot 

megnézi, hogy összejött-e a malom 
eredményhirdetés 

időmérés. 20 másodperc után 2200. Ha a 
— gombot megnyomják, 2900 (második 
zene) 

az idő letelte vagy malom esetén levesz egy 
korongot 

számítógép gondolkodása 
a második zene 
hanghatás 
az első zene 


U. i.:Mivel nekem elég kevés idő volt ezt megírni, nem 
volt időm rendezni a sorokat és kivágni a fölösleges részeket. 

Varga Zoltán 
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10 RÉM ******************************** 

20 RÉM t * 

30 RÉM * VARGA ZOLTÁN . MALOMJATEK * 

40 RÉM * * 

50 RÉM * C = ÚJSÁG .1992 * 

60 RÉM ■* * 

70 RÉM if******************************* 

80 RÉM 

90 POKE53280, 0:P0KE53281,0:P0KE53272,21;P0KE53269.0:P0KE657,128 
95 GOSUB4200 

100 POKE53265,0:PRINT"űíkT--, r-x ,■-x ^ x-i 

110 PRINT"! I I I I ! ! I i i I I 1" 

120 PRINT“ai ^-'11 II I I I ' I" 

130 PRINT"! I f--I I I II I" 

140 PRINT";;| II II I II I" 

150 PRINT" 

160 PRINT" ílCVARGA ZOLTÁN" 

161 SZ=PEEK(705):IFSZ=0THENPRINT“;;í(F3) : PLAYER T 

162 IFSZ=10RSZ=2THENPRINT":::3(F3) ; COMPUTERT 

163 PRINT"föKiJ®iM®)@M®^ ; PLAYER 2" 

164 IFSZ=2THENPRINT"T!jMM«»MlMijii||ij#M®»E^ : PLAYER 1" 

165 PE=PEEK<704) : IFPE=0THENPRINT“i?M#.jM!l!l!l?K'!lffiKFl) : EGYBŐL VÉG" 
168 IFPE=1 THEN PRINT"FI) : 24 LÉPÉS" 
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170 PRINT">[JiEJr- 


O 



180 

PRINT" 

1 

fi 

Mi 

KÉT SZEMÉLY 

Si 


1992. 1 ' 



o 

190 

PR INT" 

1 

rif 

Ml 

JÁTSZHAT VAGY 

síi ííl 


1 " 

o 


200 

PRINT" 

1 

»>a 

A SZÁMÍTÓGÉP 

líi 

MíiXÍI 

AUG 

1 " 


o 

210 

PRINT" 

1 

ut 

AZT A BETŰT 

üli /i-i/y/vvNüiNa 


1 II 

o 

220 

PRINT" 

1 

pw 

HŰI 

írjuk be AHO- 


V\''4i\S 

25- 

1 " 

o 

230 

PRINT" 

1 

ha 

VA LEPNI 




i " 

o 

240 

PRINT" 

1 

»;» 

ha 

AKARUNK . 

iii\3\\\ 

yyyayú 

OKT 

1 H 


250 

PRINT" 

1 

pl 

hűl 

EGY MALOM AZ 

SK5!N\\ 

yyyxiyi 


1 M 


o 

260 

PRINT" 

1 

>:ifi 

\U 

HA HÁROM KOR 

iil \íj\VvV./1ii/::!l 

7 

1 " 
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270 

PRINT" 

1 

IH 

GYŰLIK ÖSSZE. 



] 


o 

280 

PRINT" 

1 

ÍJH 

M 

SPACE : START 

y \s!x4ii/ ii 


1 

o 

290 

300 

PR INT" 
PRINT" 

u- 



y N/ 

i 

1 " 

-J ;;j,M 



321 

322 

323 

324 

325 
327 


310 P0KE53265,27:P0KE53269,0:P0KE53264,0 
315 POKE198,0 

317 1=1 

318 GETAS:IFGVCI)<0THENI=0;GOTO317 

319 POKEAH,GV(I):P0KEAH+1,GB(I):FORQI=0TOGH(I)STEP2iNEKTQI 

320 IFA$=""THENI=I+1:G0T0318 
IFA$="™''THENIFPEEK(705)=0THENPOKE705, 1 :GOTO100 
IFA$="SI"THENPOKE7e5.0;GOTO100 
IFA$="|S"THENIFPEEK(705)=1THENPOKE705,2:GOTO100 
IFA$="U|"THENIFPEEK(705)=2THENPOKE705,1;GOTO100 
IFA$="|i“THENIFPEEK(704)=0THENPOKE704. 1;GOTO100 
IFA$="ia"THENPOKE704.0;GOT0100 

330 POKEAH+4,0:POKE53265.0 

331 DATA30,25,200,135,33,200, 62,42, 200, 60. 50, 300, 0. 0. 100 

332 DATA60,50,30O,0.0,100,193,44,300,0,0, 100,193,44,300 

333 DATA0,0.100,62,42,200,162,37,200,62,42,200,193.44,200 

334 DATA62,42,300,0.0,100,162,37,300,0,0, 100, 193,44,300 

335 DATA0,0.100,193,44,300,0,0,100,62,42,300,0,0,100 

336 DATA62,42,300,0,0,100,162,37, 1100,0,0, 100, 193,44,300 

337 DATA0,0,100,193,44.390,0,0,100,62,42,300,0,0, 100 

338 DATA62,42,300,0.0,100,162,37,1100,0,0, 100, 162,37,200 

339 DATA135.33,200.162,37,200,62,42,200.162,37,300,0,0,100 

340 FÓRI=0TO191:READY:P0KE832+I.Y;NEXT 

341 DATA135,33,300.0,0,100,135,33,800,-1,0,0 

350 DATA24, . , 60, . , 126, , , 126, , . 60, , , 24, , . 36. , , 68, . , 102, , .. 0 

360 DATA0.24. , ,60. , , 126, . , 126, , . 60, . , 24, , , 24, , , 24, , , 28.0 

370 DATA0...24, . , 60, , , 126, . , 126,, . 60, . , 24, , . 20, , , 50,., 35 

380 OATA0 

390 PRINT”3ffi}3lA:]-^=183--SC" 

400 PRINT-'SIŰIX I /l" 

410 PRINT"í|liOI \ I /I" 



420 

PRINT-ffiDI 

3ii:3 

Í3IJ3 

SJK3 1 - 

o 

430 

PRINT"»ai 

l\ 

1 

/I 1" 


440 

PRINT-íIöl 

1 \ 

1 

/I 1" 


450 

PRINT"®OI 

1 alQd 

iíiRa 

ÜSD 1 1 - 

o 

460 

PRINT"|iK3l 

1 1 


1 1 1" 


470 

PRINT"|!1íü:3I 

1 1 


1 1 1" 

o 

480 

PRINT"|s3iS:3l 

1 1 


1 1 1" 


490 

PR INT" ».C3;3D3—3iL3—ifT 


UD—3WD—TE" 

o 

500 

PRINT"»S:3I 

1 1 


1 1 1" 


510 

PRINT-lfJUiDI 

1 1 


II 1" 


520 

PRINT-ílDI 

1 1 


1 1 1" 

o 

530 

PRINT-ífCI 

1 - 


ÜKD 1 1" 


540 

PRINT-USíDI 

1 / 

1 

\ 1 1" 

o 

550 

PRINT"i5iOI 

1/ 

1 

\l 1" 


560 

PRINT"®DI 

iün:] 

•nos 

3PD 1" 


570 PRINT'líJffil / 
580 PRINT"|!j|!ni/ 
590 PR INT-».!■«— 


\ 1 ” 
\l " 




-•íH” 


600 DIMA(25):Ad)=83;A(2)=100:A(3)=l17;A(4)=483;A(51=517;A(6)=883:A(71=900: 

605 A(81=917:A(9)=206:A(101=220:A(111=234;A(121=486:A(131=514:A(141=766:P0KEAH. 5 
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610 A(15)=780:A(16)=794:A(17)=329;A(18)=340:A(19)=351:A(20)=489:A(21)=511 
620 A(22)=649;A(23)=660:A(24)=671 

625 P0KE53265,27:CC=13:DIMX(25).Y(25),Z(25);FORI=1TO20;READX(I).Y(I).Z(I):NEXT 
630 P0KE53269. 1 ;P0KE53248+23. 0 :P0KE53248+29. 0 ;RIí="000l50'' :YI$=’'000150" 

640 X(0)=0 ;Y(0)= 0;Z(0)= 0;D1MV(25).MAGASSAG(150),TARTAM(150) 

650 F0RI=1T038;READMAGASSAG(I):REAOTARTAM(I):NEXT 

700 TI$=RIÍ:PRINT"3“;:IFSZ=2THEN2700 

701 PRINT"1 ; mer ; ;P0KE53269, 1 
710 GETA$:JK=1 ;GOTO1900:RI1.=TI$ 

715 RI$=TI$ 

720 PRINTAS; : IFA$<"A"ORA$>''X"THEN701 

740 P0KE53248+39.2:DD=ASC(A$)-64:L=PEEK(55296-41+A(DD))AND15:IFL=1THEN750 
745 GOTO700 

750 GOSUBl000;P0KE55296-41+A(DD),PEEK(53248+39):POKE1024-41+A(DD),81 
760 POKE53269.0:POKE53264,0:POKE53248,0:POKE53269,1 
765 Q=Q+1:IFQ=24THEN1780 
770 GOSUBl500 

800 T]$=YI$:IFSZ=1THEN2400 

801 PRINT"SSSWl!M;l5i:ffiKirS’I«^^^^^ 2 ; HJll" ; :P0KE53269, 1 

810 GETA$:JK=2:GOTO1900:YI$=TI$ 

815 Y1$=TI$ 

820 PRINTAS;;IFA$<”A"ORAS>"X"THEN801 

840 P0KE53248+39,5:DD=ASC<AS)-64:L=PEEK(55296-41+A(DD))AND15:IFL=ITHEN850 
845 GOTO800 

850 GOSUB1000;P0KE55296-41+A(DD),PEEK(53248+39);POKE1024-41+A(DD),81 

860 P0KE53269.0:P0KE53264,0;P0KE53248.0;P0KE53269,1 

865 Q=Q+1;IFQ=24THEN1780 

870 GOSUB1500 

900 ; 

910 GOTO700 

999 END 

1000 IFAS=" A" 0RA$= '■ B" ORAS=" C" THENGOSUB1100; RETURN 
1010 IFA$="I"0RAS="J”0RA$="K“THENGOSUB1140;RETURN 
1020 1FA$="Q"0RA$="R"0RA$="S"THENGOSUB1600:RETURN 
1030 IFA$="D ■ 0RA$=•'L" 0RAS=" T" THENGOSUB 1180: RETURN 
1040 IFA$="U“0RA$="M“0RAS="E"THENGOSUB1220:RETURN 
1050 IFA$="V• 0RA$="W■' 0RA$=" X" THENGOSUB 1260; RETURN 
1060 IFA$=”N"ORA$="0"0RA$=“P"THENGOSUB1300;RE TURN 
1070 1FAS="F■0RA$="G"0RAS="H"THENGOSUB1340:RETURN 
1100 AA=59:1FA$="A"THENBB=40 

1110 AA=59 :IFAS="B"THENB8=176 
1120 AA=59 :IFA$="C"THENBB=56 
1130 GOSUB1380:RETURN 
1140 AA=83;1FAS="I“THENBB=64 
1150 AA=83:IFAS='J"THENBB=176 
1160 AA=83:1FA$="K"THENBB=32 
1170 GOSUB1380:RETURN 
1180 AA=139:IFA$="D"THENBB=40 
1190 AA=139;IFAS=''L"THENBB=64 
1200 AA=139;IFAS=“T"THENBB=88 
1210 GOSUB1380:RETURN 
1220 AA=139:IFA$="U"THENBB=8 
1230 AA=139:IFAS="M"THENBB=32 
1240 AA=139:IFA$="E''THENBB=56 
1250 GOSUB1380;RETURN 
1260 AA=171:IFA$="V"THENBB=88 
1270 AA=171 : IFAS="W"THENBB=176 
1280 AA=171;IFAS="X”THENBB=8 
1290 GOSUB1380:RETURN 
1300 AA=195:IFAS="N“THENBB=64 
1310 AA=195:IFAS=“0"THENBB=176 
1320 AA=195:IFAS="P"THENBB=32 
1330 GOSUB1380;RETURN 
1340 AA=219:IFAS="F"THENBB=40 
1350 AA=2I9;IFAS=“G"THENBB=176 
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1360 AA=219: IFA$="H"THENBB=56 
1370 GOSUB1380:RETURN 

1380 DR=0:POKEAH+4,0:POKEAH+5,4«16+16:POKEAH+G,6*16+8;POKEAH.14:POKEAH+1,24 

1390 POKEAH+24,15 

14001FBB=560RBB=320RBB=8THEN1440 

1410 P0KE53249, AA:F0RII = 17T0BBSTEP2:P0KE53248.11:POKE2040.CC;CC=CC+1:POKEAH+4,0 
1420 IFCC=16THENCC=13;P0KEAH+4. 129 
1430 NEXTII:GOSUB4100:RETURN 
1440 P0KE53248+16,1 

1450 P0KE53249,AA:F0RII=91T0BBSTEP-2;P0KE53248,II:POKE2040.CC;CC=CC+1 
1460 POKEAH+4,0 

1465 IFCC=16THENCC=13:P0KEAH+4. 129 

1470 NEXTII:G0SUB4100:RETURN 

1500 AD=0:FORI=]TO20 

1510 N =PEEK(55296-41+A(X(n))AN015 

1520 0 =PEEK(55296-41+A(Y(I)))AND15 

1530 P =PEEK(55296-41+A(Z<I)))AND15 

1540 IFN=2AND0=2ANDP=2THENAD=1:X(I)=0:Y(I)=0:2(1)=0 

1545 IFN=5AND0=5ANDP=5THENAD=2:X(1)=0:Y<I)=0:Z( I>=0 

1550 NEXT1;IFPE=1THEN1FAD=1THENAD=0;GOTO2200 

1555 IFPE=1THENIFAD=2 THENAD=0;GOTO2300 

1556 IFAD=ITHEN1700 

1557 IFAD=2THEN1740 

1558 RETURN 

1560 DATA1,2,3.9,10,11,17,18.19,4.12,20. 21,13. 5, 22. 23, 24, 14, 15, 16, 6, 7. 8 

1570 DATA1,9,17,2,10, 18,3,11,19,6,14,22,7,15,23,8,16,24,1,4,6,9,12,14,17,20,22 

1580 DATA19.21,24,11.13.16.3.5.8 

1600 AA=107:IFA$="Q"THENBB=88 

1610 AA=107;IFA$="R"THENBB=176 

1620 AA=107;IFA$=''S"THENBB=8 

1630 GOSUB1380:RETURN 

1700 PR IN T" :" 

1710 PRINT"aíJSM’SlIliaiaiJMiISJf Mil!!!íPLAYER 1" ; ; I FSZ=2THENPRI NT" llffiSjglIliailCOMPUTER'' 

1720 PR I NT" Q" LÉPÉS" 

1730 GOTO1790 

1740 PRINT^a;íM5»l!«l@MM»^^^ :" 

1750 PRlNT'^i! l!li *i| ;»yrap it ) 8iI|iiS'ii»!iiiil'IIPai|ilii»iE'iiPLAYER 2" ; ; IFSZ=lTHENPRINT"|!jílM5lll||!lliillllIlC0MPUTER" 

1760 PRINT"Q” LÉPÉS" 

1770 GOTO1790 

1780 I FSA=0THENPRI NT" Q" LÉPÉS" 

1785 1FSAO0THEN1820 

1790 POKE198,0;GOSUB4300 

1800 POKE53269,0:GETA$;IFA$=""THEN1800 

1810 RESTORE;RUN 

1820 IFSA>0THEN1700 

1830 IFSA<0THEN1740 

1900 GETA$:E$=M1D$(TI$.5,1):GOSUB2035:GOTO2010 

1910 PR IN T" " ; 

1920 IFE$="8”THENPRINT"2 atliM íISiM! ; 

1930 IFE$="7'THENPRINT"12Ml.íttl*!MK*i;j«" ; 

1940 IFE$="6'' THENPRINT”® 'iS-ÍME 'íi.2®“ ‘íW ; 

1950 IFEÍ="5"THENPRINT";1I5Wí:í|.;;’}|S.E ; 

1960 IFE$="4" THENPRINT” ■íSSIia! ‘A iJSIlE ‘iá*'' i 
1970 IFE$=''3"THENPRINT";fl«!;|iiai.;pMH'íW ; 

1980 IFE$="2"THENPRINT"í;h.MíK ilíSIE 
1990 IFES=" 1" THENPRINT" Jül. aSSljl. íllSS! ‘ím' i 
2000 IFE$=" 0" THENPRINT" Jjl. SliE! RKÍÍSS 'la*" ; 

2002 IFE$="9"THENPRINT''-i.SSI«líll2ii®|!;’íV ; 

2005 PR INT"RETURN 

2010 E$=MID$(TI$, 6, 1) :PRINT":i]" ; :GOSUBl920 :1 FASO "" THEN2030 
2015 IFTI$>=■000209"THENPOKEAH+4.0;GOSUB4320:G0T02110 
2020 ;GOTO1900 

2030 PRINT”!2í2a5E]jíÉIÍií’íaföi!SÍ[í[!!E U : ; :P0KE53269. 1 

2031 IFA$=’'+"THEN2900 

2032 0NJI<G0T0715.815 
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2035 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2200 

2210 

2220 

2300 

2310 

2320 

2400 

2405 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2485 

2490 

2495 

2500 

2505 

2510 

2515 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2585 

2590 

2600 

2610 

2620 

2630 

2640 

2660 

2665 

2670 

2680 

2685 

2690 

2700 

2705 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2800 

2810 

2900 


IFE$="5''THENPRINT";2 jJBSMSi íiiSEiüS ; 


IFE$="4"THENPRINT"a "áí.ÜMIÍI“JW i 
IFE$= " 3 " THENPRINT "«» ’í], íaiE 'lit 51021 ‘ii-" ; 
lFE$=''2“THENPRINT"i-!ÍII£M2I!‘;í.j!MJI!! "" ; 


IFE$=" 1 '• THENPRI NT“ j;íl jjjaitS -a-" ; 

IFE$="0" THENPRINT“ai. .rjlülijil | jgja -ű«» ; 

RETURN 

IFPEEK(646)=5THENYI i= "000150”;GOTO2200 
IFPEEK(646)=2THENRI$="000150":GOTO2300 
L=INT(RND(1)«25):K=PEEK(5529G-41+A(L))AND15 
IFKO5THEN2200 

Q=Q-1:SA=SA+1;POKE1024-41+A(L), L:P0KE55296-41+A(L), 1:GOTO800 
L=INT(RND(1)* 25);K=PEEK(55296-41+A(L))AND15 
IFKO2THEN2300 

Q=Q-1:SA=SA-1;POKE1024-41+A(L).L:P0KE55296-41+A(L),1:GOTO900 
PR int " ": P0KE53248+39, 5 

EO=0:DD=0:FD=0;FORI=1TO20 


N =PEEK(55296-41+A(X(I)))AND15 
0 =PEEKC55296-41+A(Y(n))AND15 
P =PEEK(5529G-41+A(Z(I)))AND15 


IFN=2AND0=2ANDP=10RN=2ANDP=2AND0=10R0=2ANDP=2ANDN=1THENED=1:L0=I 
I FN=5AND0=1ANDP= 10R0=5ANDN=1ANDP=10RP=5AND0=1ANDN=1THENFD=2:P0=I 
IFN=5AND0=5ANDP=10R0=1ANDN=5ANDP=50RP=5AND0=5ANDN=1THENDD=3:I0=I 
NEXTI 

IFDD=3THENGOSUB2520:GOSUBl500:IFSZ=1THEN900 
IFAS=0THENIFSZ=2THEN800 

1FED=1THENGOSUB2620:GOSUB1000;GOSUB2680:GOSUB1500;!FSZ=1THEN900 
IFAS=0THEN1FS2=2THEN800 

IFFD=2THENGOSUB2550;GOSUB1000;GOSUB2680:GOSUB1500:1FSZ=1THEN900 
IFAS=0THEN1FSZ=2THEN800 

GOSUB2660;GOSUB1000;GOSUB2680:GOSUB1500:1FSZ=1THEN900 
IFAS=0THENIFSZ=2THEN800 

Q=Q-1;A$=CHR$(X(I0)+64):GOSUB1000:GOSUB2680:Q=Q-1 
A$=CHR$(Y(I0)+64);GOSUB1000:GOSUB2680 
A$=CHRS(Z(I0)+64);GOSUB1000:GOSUB2680:RETURN 
1 =PEEK(55296-41 + A (X (PO))) AND 15 
IFI=1THEN2590 

I=PEEK(55296-41+A(Y(P0)))AND15 

1FI=1THEN2600 

GOTO2610 

A$=CHR$(X(P0)+64):RETURN 
A$=CHR$(Y(P0)+64):RETURN 
A$=CHR$(Z(P0)+64);RETURN 

I=PEEK(55296-41+A(X(LO)>)AND15:IFI=1THENA$=CHR$(X(LO)+64):RETURN 
l=PEEK(55296-41+A(Y(L0)))AND15:IFI=lTHENAS=CHR$(Y(L0)+64);RETURN 
I=PEEK(55296-41+A(Z(L0)))AND15:IFI=lTHENA$=CHR$(Z(L0)+64):RETURN 
FD=0:FD=INT(RND(1)*24):FD=FD+1:IS= PEEK(55296-41+A(FD))AND15 
IFISO1THEN2660 
A$=CHR$((FD)+64);RETURN 

AS=0;V=ASC(AJ)-64;POKE55296-41+A< V), PEEK(53248+39):POKEl024-41+A( V).81 
Q=Q+1:IFQ=24THEN1780 

POKE53269.0:POKE53264,0:POKE53248,0:POKE53269,1:RETURN 
PRINT"Sa!:Ml!!m « t !M i !li-MiMi1Ini^^^ ^ ^^^^ ” ;P0KE53248+39. 2 ; AS=1 

ED=0:FD=0:DD=0:FÓRI=1TO20 


N =PEEK(55296-41+A(X(I)))AND15 
0 =PEEK(55296-41+A(Y(I)))AND15 
P =PEEK(55296-41+A(Z(I)))AND]5 

IFN=5AND0=5ANDP=10RN=5ANDP=5AND0=10R0=5ANDP=5ANDN=1THENED=1:L0=I 
IFN=2AND0=1ANDP=10R0=2ANDN=1ANDP=10RP=2AND0=1ANDN=1THENFD=2:P0=I 


IFN=2AND0=2ANDP=10R0=1ANDN=2ANDP=20RP=2AND0=2ANDN=1THENDD=3:I0=I 


NEXTI:GOTO2480 
IFVCI)=2THENAD=0:RETURN 
IFV(1)=0THENV(I)=2:RETURN 
P0KE53265,.:PS$=TI$ 
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PÁLYÁZAT 



0 

2910 

2920 

3070 

o 

3080 

3090 

o 

3130 

3140 

o 

3150 

3160 

3170 

o 

3180 

3190 

o 

3230 

3240 

o 

3250 

3300 

3400 

o 

3500 

3600 

o 

3700 

3750 

3800 

o 

3850 

3900 

o 

3950 

4000 

o 

4010 

4020 

4030 

o 

4100 

4110 

o 

4200 

4210 

o 

4220 

4230 

4240 

o 

4250 

4300 

o 

4310 

4320 


GETA$;GOSUB3070 

TI$=PSS:P0KE53265.27;GOTO1900 

F0RI=54272T054296 

POKEI,0 

NEXTI 

ELS0=54272 
HANG=ELSO+24 
BE=ELS0+5 
KI=ELS0+6 
HI=ELSO 
H2=ELS0+1 
NY0MAS=ELS0+4 
POKEHANG,15 
POKEBE,122 
POKEKI,120 
FORHZ=lTO 38 
GETAÍ 

F2=MAGASSAG(H2)/256:F1=MAGASSAG(HZ 1-F2 *256 
P0KEH2,F2:P0KEH1,FI:IFA$<>""THENRETURN 
POKENYOMAS,17:FORI=0TOTARTAM(HZ)*50 
NEXT 

POKENYOMAS,16:FÓRI=0TOTARTAM(HZ)*50 
NEXT 

IFA$=" •' THENNEXTHZ : GOTO3300 
RETURN 

DATA8583. 4,7217, 10, 7217, 2, 8583, 2, 9634, 2, 6430, 12, 6430, 2, 7217, 2, 7647, 4, 11457 
DATA6,11457,2,10814,2,8583,2,9634,2,8583, 1,7647, 1,7217, 10,8583,2,9634,2 
DATA9634,4,9634,2, 12860, 1, 11457,2, 10814,2,11457, 1,9634,2,8583,8,5728,2 
DATA6430,2,7217,2,9634,4,8583,4,8583,2,7647,2,7217,2,5407,2,5728,4,5728,17 
POKEAH+4,0;POKEAH+5,10:P0KEAH+6, 0:POKEAH,14:POKEAH+l, 114:P0KEAH+4, 17 
RETURN 

AH=54272:FÓRI=AHTOAH+24:POKE1,0:NEXT:POKEAH+24, 10 
POKEAH+6,240:P0KEAH+4,33 
I=0:DlMGV(ig4),GB(]94),GH(194) 

1=1+1:READGV(I),GB(I),GH<I) 

IFGV(n<0THENRETURN 

GOTO4230 

POKEAH+4,0:ES=PEEK(646)AND15:1FES=70RSZ=1ANDES=5ORSZ=2ANDES=2THEN4320 
POKEAH,143:P0KEAH+1,12;P0KEAH+6,0:POKEAH+5,8*16+12:P0KEAH+4,17:RETURN 
POKEAH, 90:POKEAH+1, 2:POKEAH+6,0:P0l<EAH+5,8*16+12:POKEAH+4,33:RETURN 
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Ha kivágta 
a megrendelőlapot, 
kérjük tegye 
felbélyegzett borítékba, 
címezze meg, 
és úgy küldje el. 

Köszönjük! 


IGEEEN! Megrendelem az 

ACOMP Kft. 


borító hátoldalon szereplő kínálatából 
a feladó címére postai utánvétellel az alábbi termékeket: 


db. 

. Ára . 

. Ft/db: összesen . 

. Ft 

db. 

. Ára . 

. Ft/db: összesen . 

. Ft 

db. 


. Ft/db: összesen . 

. Ft 

db. 

. Ára . 

. Ft/db: összesen . 

. Ft 

db.:. 


. Ft/db: összesen . 

. Ft 

db. 


. Ft/db: összesen . 

. Ft 




.Ft 


Tudomásul veszem, hogy a csomagküldés átfutási ideje 2-4 hét. 
50.000,- Ft feletti megrendelésre csomagküldést nem vállalunk! 
Az áraink a postaköltséget nem tartalmazzák! 
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20 F 

EM ^ GRRFIRRI"-KF_F 




30 F 

.EM KÉSZÍTETTE: 
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o 

40 F 

EM ♦ LOOS .JOZS 

£F 



50 RÉM ^ COMMODORE FLüS/4 

GEF 

■RE. * 


60 F 




o 

70 C 

OLOR. 1,1: GRRPHÍC 1 / 1 : 

v'OL 

(■' 

80 C 

HFlF: 1 / 8 / 1 / " 


ti 

/ 


90 C 

FlRR 1/8/2/"G R f'l F 1 

K. R 

í - K E F" 

o 

'100 

CHRR 1 / 6 / 2:2 / "COMMOOOR 

F'l 

.08/4 ■— SOOL-SOF 

110 

BOl'í 1 / 44 / S.S / 273 / 1 <'0 




120 

RT 1> = 1 :Fu:2;‘ = l 



o 

i:30 

FÜR 1=3 TO 10 



140 
150 

R1 =Fi <. 1 -1 :• ■■!■ Rí “2 :* ■ 
H£:>TT í 




o 

160 

C=:44:F0R 1=2 TO 10: GO 

SüB 

1 í-'O ■■ HE:KT l : GOTO 

170 

B=R<. í > : C=:B+C 
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TIPPEK-TRÜKKÖK 

Grafikai-kép 

1. A program kezelése: 

Bármelyik karakter billentyű megnyo¬ 
másával. 

2. A program célja: 

Egy egyszerű grafikai kép megjelenítése. 

3. A program műfaja: 
demo program 


18Ű ORFIW 1..C/28 TG C / 17G RE.TURN 
180 FÓR 1=9 TO £ STEF -l'-60SUe l'fO-MEXT I 
200 0=29^FÓR 1=2 TO 9■GOtíUB 210=HEXT 1■GOTO 230 
210 B=fl< 1 > C=B'+-C 

220 ÜRHW 1 / 44 , C T"0 273 / C '• RETORM 
2:30 FÓR 1=8 10 2 STEF —l-GO-SÜG 210M'tEXV 1 
240 RÉM —t'.UROt'. - 

250 C=45 = E=:30 FÓR tí.=3 TO 9 ^ Ü=Fl':'.K.> ■ E=Ü-r£ FÓR 1=3 TO 10--GO.SUB 
260 B=R<:i>=C=B+C 

270 ClRCLE 1 / C-<:B/2> / £-<;0/'2> . B/2, D/2 = RETURN 
2B0 NE:><T I:C=45^HEXT t?'. 

290 0=45 ■•FÓR t;.=S TO 3 STEF -1 = Ü=Ft<K;' 0£--0->-E • FÓR 1=3 TO 10 
300 GOSÜB 260:MEXT I=C=45 0tEXT K 

310 0=186 : El=:30 : FÓR K=3 TO 9 • D=Fl>:.K > • £=□->-£. O- OR 1=9 TO 
:320 HEXT I ^3=186 = HEXT K 

330 0=186 = FOR K=8 TO 3 STEF' -1 = D=FtTK’ E=0-*-£ 0"0R 1=9 
:340 GOSÜB 260 
350 HEXT l-0=186:HEXT k 
360 SOÜHO 1/890/12 
:370 GE IF.EV Fisf: 

:380 F'-RIHT'ET' :GRRFHÍO 0 
390 FRIH T " .i!',tJ'J»**IF.'‘Ein/ MjE" 

400 EHD 


RERÜV. 


4. A program leírása: 

A program egy matematikai számsor se¬ 
gítségével egy grafikai képet rajzol meg a 
felhasználó előtt. 


í;60 : GOT O 280 


3 STEF -1:GOSÜB 260 
TO 3 STEF -1 


O 

O 

O 

O 

O 

O 

O 



Feladó: 


□ □□□ 

ACOMP Kft. 

Csomagküldő Szolgálata 

Budapest 

XIV. Álmos vezér park 20. 

1141 


A program a grafikai látványon túl 
arra jó, hogy a grafikai utasításokat gya¬ 
korolja a programozó. 

A kép megrajzolása végén egy hang¬ 
hatás jelzi, hogy a grafikus kép kész van. 

A megtekintése, illetve a megunása 
után egy karakter billentyű megnyomásá¬ 
val kiléphetünk a rendszerből. 

(Vége a program futásának). 

5. Programozási feladatok megoldása: 

— a matematikai számsor használatának 
megértetése a számítógép számára. 

— a grafikai kép létrehozása megjeleníté¬ 
se, basic grafikai utasítások hasz¬ 
nálata. 

6. Megjegyzések: 

— a grafikai kép előttünk rajzolódik meg 
a képernyőn, a látványosság emelése 
érdekében (kis animáció). 






















EGYESÜLET 



282 

C64 

91/ 5 

Rartt er Sp) 11 . 

50.- 

283 

+4 

91/ 6 

ProgramnyiIvdntartó 

80.- 

264 

C64 

91/ 6 

Heqjazter 

60.- 

285 

C64 

91/ 6 

Digitalizált zene 

50.- 

286 

C64 

91/ 6 

Ékezetes MJ^S 802 

ÖÜ .- 

2B7 

C64 

91/ 7 

•Ékezetes iratkészitó 

100 .- 

266 

+4 

91/ 7 

Bűvös téglalap 

100.- 

2B9 

C64 

91/ 7 

Dominó - H 

100.- 

290 

C64 

91/ 7 

Raktáros 

80.- 

29 L 

■^4 

91/ 7 

Tologató 

60.- 

292 

C64 

91/ 7 

Aren 2ÜÜÜ 

50.- 

293 

C64 

91/ 7 

Bad Lamps 

80.- 

294 

C64 

91/ 7 

Operation Pat.riot 

50.- 

295 

+4 

91/ 7 

Mozaik - B 

90.- 

296 

+4 

91/ 7 

Logi Kód 

60.- 

297 

C64 

92/ 1 

Databevivo 

50.- 

296 

+4 

91/ 7 

Bomber 

50.- 

299 

+4 

91/ 7 

Dominó - K 

50.- 

300 

+4 

91/ 7 

The Wal1 

40.- 

30 i 

C64 

91/ 7 

Moza 1 k - K 

50.- 

302 

+4 

91/ 7 

Dominó - R 

60.- 

303 

+4 

91/ 7 

*Borgok Kincse 

190.- 

304 

+4 

91/ 7 

Asteroídö 

60.- 

305 

C64 

91/ 9 

Ékezetes irat torrds 

40.- 

306 

C64 

91/ 9 

Yugo2 

50.- 

307 

C64 

91/ y 

Adventure - Sz 

130.- 

306 

C64 

91/ 9 

Morze Oktató B. 

1 30 . - 

309' 

+4 

91/ 9 

Memory Game Plus 

100.- 

310 

Cb4 

91/ 9 

•Capitaly 

130.- 

311 

C64 

91/ 9 

•Gengszterek 

60.- 

312 

C64 

91/ 9 

'Küldetés 2000 

100.- 

313 

C64 

91/ 9 

Itt a $ hol a $ 

50.- 

314' 

064 

91/ 9 

Hewing 

50.- 

315 


91/10 

Mikrobi 

50.- 

316 

+4 

91/10 

Nest of Pleas 

190.- 

317 

+4 

91/10 

Adventure - F 

100.- 

3J8 

+4 

91/lÜ 

A világ szeme 

150.- 

319 

i:64 

91/10 

Gondolkoz6 

100.- 

320 

C64 

91/10 

Memorí - B 

130.- 

321 

+4 

91/10 

Matekastóly 

100.- 

322 

C64 

91/11 

Lottó 

80.- 

323 

C64 

91/11 

Totó 

80.- 

324 

C64 

91/11 

Nemet gyakorló 

60 .- 

325 

+4 

91 / l L 

beszelő szótár 

130.- 

326 

+4 

91/11 

Fi le examiner 

60.- 

327 

C64 

91/11 

Spríte szerkeszd:' 

50:- 

328 

C64 

91/11 

Egyszínű Sprite 

50.- 

329 

C64 

91/12 

Rulett javítás 

50.- 

330 

C64 

91/12 

Tőzsde 

130.- 

331 

C64 

91/12 

IQ teszt 

150.- 

332 

C64 

92/ 1 

Kaland 1ap 

80.- 

333 

C64 

92/ 1 

Leveliro 

80.- 

334 

C64 

92/ 1 

Kepei iiyomaszkóio 

130.- 

335 

C64 

92/ 1 

Sprite Kezelő 

100.- 

336 

C64 

9J-- 1 

Sí - OPART 

40.- 

337 

C64 

92/ 2 

Pötíence Ouartet 

130.- 

336 

064 

92/ 2 

Monopoly 

130.- 

339 

C64 

92/ 2 

Akasztóta 

80.- 

340 

C64 

92/ 2 

Karaktertervező 

60.- 

341 

C64 

92/ 3 

String Array Manager 

100.- 

342 

C64 

92/ 3 

Sprite Basic 

50.- 

343 

C64 

92/ 3 

Screen Help 

50.- 

344 

C64 

92/ 3 

Gyors validate 

6Ü.- 

345 

C64 

92/ 3 

BASIC SYNTAXER I. 

190.- 

346 

C64 

92/ 4 

Tologato C64-re 

iOO.- 

347 

C64 

92/ 4 

ABC rendező 

100.- 

348 

C64 

92/ 5 

•Matek + Romai számok 

100.- 

349 

+4 

92/ ó 

Teaztkeszitö + értékelő 

100.- 

350 

C64 

92/ 3 

BASIC SYNTAXER II. 

190.- 

351 

+4 

92/ 7 

Három játék 

110.- 

352 

+4 

92/ 7 

Szökés 

80.- 

353 

C64 

92/ 7 

Toto 

150.- 

354 

C64 

92/ 7 

DI6IT analízis program 

110.- 

355 

+4 

92/ 7 

SCREEN DUMP 

150.- 

356 

C64 

92/ 9 

UNISEŰ fi lekezelő 

130.- 

357 

Cb4 

92/ 9 

Graphic Copy 

60.- 

358 

C64 

92/10 

Printfox Resizer 

130.- 

359 

C+4 

92/11 

Tologató 1I. 

150.- 

360 

C-iA 

92/12 

Sprite Plus-4-en 

130.- 

361 

C64 

92/12 

Változol ista 

150.- 

362 

C64.+4 

9.3/ 2 

Szomszéd .iáték 

200.- 

363 

C64 

93/ 2 

Táblás Játék 

200.- 

364 

C64 

93/ 2 

SEDA 

150.- 

365 

C64 

93/ 2 

415 • 200 

120.- 

366 

+4 

93/ 2 

OTP hitel 

100.- 

367 

C64 

93/ 3 

Cata1og-Check(CTC ) 

150.- 

368 

C64 

9 3/ 3 

Pattogó golyók 

200. - 

369 

C64 

93/ 3 

Beszór í t ős (DO-GUTI) 

150.- 

370 

C64 

93/ 3 

•Zsirozas 

200.- 

371 

C64 

93/ 4 

Attrib 64 

50.- 

372 

C64 

93/ 4 

Tahi ázatnyomtató 

60.- 

373 

C+4 

93/ 4 

Boritékkészitö 

80.- 

374 

C+4 

93/ 4 

TV-óra 

50.- 

375 

C64 

93/ 4 

Mini Domino 

150.- 

376 

C64 

93/ 4 

Meqathe)lo 

120.- 

377 

C64 

93/ 4 

Reversi 

120.- 

378 

C64 

93/ 4 

Tengeri csata 

120.- 

3V9 

C64 

93/ 5 

Videokazetták 

80.- 

380 

C+4 

93/ 5 

DIN-karakterek 

80.- 

381 

0b4 

93/ 5 

DIRYDIRY 

80.- 

382 

C64 

93/ 5 

Birodalom 

150.- 


A 


*-göl .lelólt programok csak lemf::en renclelbetók ; 



Kérem, hogy a Commodore Újság legközelebbi számában 
jelenjen meg a következő szövegű apróhirdetés: 


(minden kockába egy betűt írjon) 



Tagsági szám: 


Feladandó az újság címére: 

Commodore Újság 
Budapest, 1388. Pf. 86. 

Alulírott megrendelem a következő programokat a PÖTYÖ¬ 
GŐSZOLGÁLAT-tói: 


PROGRAM SORSZÁMA 

ÁRA 



u 

J 

LU'- Ft 

2. 



LU'-Ft 

3. 




UJ'- Ft 

4. 




LU'- Ft 

5. 




LU'- Ft 

6. 




LU'- Ft 

7. 



LU'-Ft 

8. 




UJ'- Ft 

9. 



LU'- Ft 

Összesen: 



db I I I I Ft 


A programokat a SZOLGÁLAT által biztosított 
lemezre (99 Ft/db) 
kazettára (40 Ft/db) 

az általam küldött adathordozóra kérem. 

(Kérjük a megfelelő szöveg aláhúzását!) 

Postaköltség -t- munkadíj 

A fizetés módja: személyesen — csekken — utánvéttel 

(Kérjük a megfelelő szöveg aláhúzását!) 

ÖSSZESEN: 

A megrendelő neve: . 


Címe: 
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MAGYAR MATEMATIKUS 

A meghatározásokat nem választot¬ 
tuk külön, hanem a számozás sorrendjé¬ 
ben folyamatosan adjuk. Ha egy számtól 
mindkét irányba indul ki a megfejtés, ak¬ 
kor előbb a vízszintes, majd egy gondolat¬ 
jellel elválasztva a függőleges meghatáro- 
zá.sa szerepel. 

MEGHATÁROZÁSOK: 

1. Bolyai Farkas matematikus ezen 
a kis birtokon folytatott feleségével gaz¬ 
dálkodást. — 700 méter magas hegy a 
Visegrádi-hegységben. 2. Maros István 
monogramja. 3. Értéke. 4. Aranynemű. 
5. Dán szélei. 6. Itt halt meg Bolyai Far¬ 
kas matematikus. 7. Csak félig abál. 8. 
Európai város. 9. Időjelző. 10. Kétes(!). 
11. Nép. 12. Ennyi éves volt Bolyai Far¬ 
kas matematikus amikor meghalt. 13. 
Van törött meg egé.sz ilyen fűszer. 14. 
Irányszó. 15. Ügck fia és Álmos apja volt. 
16. Ausztriai és norvégiai gépkocsik jelzé¬ 
sei. 17. Épület rész. — Fiút keverve. 18. 
Végtelen szerencsejáték. 19. E nap. 20. 
Hamis, de vissza. — Kocsi tartozék. 21. 
Szomszédok tv-játék egyik ura. 22. Régi 
tanuló. 23. Kulacs. 24. Svédországi és 
magyarországi gépkocsik jelzései. 25. Rá¬ 
dium vegyjele. 26. Ilyen folyosó is létezik. 
— Vivócszköz. 27. Ruha. 28. Szólította. 
29. Van ilyen lexikon is. 30. Költemény. 
31. Trikó. 32. Hajófar. 33. Réz keverve. 
34. Róbert, Sándor, Elek. 35. Nem megy 
lassan. 36. Gyakori férfinév. 37. Éktelenül 
itt született Kisfaludy Károly. 38. Van 
ilyen liget is. — Három mássalhangzó. 39. 
Balaton környékéről való. 40. Gyilkol. 41. 
Ritka férfinév. 42. Baltás. 43. Mázold. 
44. Magadra. 45. Két különböző magán¬ 
hangzó. — Pottyant. 46. Tea keveredés. 
47. Hangnem. 48. Magáz ellentéte. 49. 
Nesz. 50. Mo.sószer. 51. Autó márka. — 
Itt volt 12 éves korában a 8 éves báró Ke¬ 
mény Simon mentora Bolyai Farkas. 
52. Latin előjel. 53. Végtelen évszak. 54. 
Ezen az egyetemen folytatott tanul¬ 


APRÓCSKÁK 

KERESZTREJTVÉNY 



mányt 1796-ban Bolyai Farkas. 54. 
Rang. 55. Éled. 56. Amerícium vegyjele. 
57. Fegyver. 58. Cipészszerszám. 59. Ket¬ 
tős betű. 60. Vértanú volt, 253-ban halt 
meg. 61. Tagadószó. 62. Ruhaanyag. 63. 
író keveredés. 64. Határrag. — Ez beszél. 
65. Túl ízes. 66. Sporteszköz. 67. Kikötő¬ 
város Jugoszláviában. — Hónapnév rövi¬ 
dítés. 68. Gléda. 69. Idegen pénznem. — 


Ruha rész. 70. Férfinév. 71. Szolmizációs 
skála. 72. Tartós. — Kettős betű. 73. Má¬ 
sik kettős betű. 74. Másik férfinév. — Kö¬ 
tőszó. 75. Nátrium vegyjele. 76. Ebben a 
betegségben halt meg Bolyai Farkas. 
77. Azonos a 66. függőleges.sel. 

A rejtvényt nem kell beküldeni, mert 
szórakoztató jellegű! 

Mokos István 


C-64-kazettán programhe¬ 
gyek. Válaszborítékért lista. 
Cím: íQ. Farkas Gábor, 7300 
Komló, Vértanúk u. 5. 

C-64-re, diszkre, kazettára 
oktató, felhasználó, játék prg. 
5 Ft-tól. Borítékért lista. Föl- 
desné, Szolnok, Győrffy u. 
12. Tel.: 420-544 

SUPERBASE 64 c. programot 
keresek C-64-re. Hakstol Imre, 
6320 Solt, Csárda u.l4. 

Cr 


C-64-es szuperprogramok el¬ 
adása kazettára. Bélyeges vá¬ 
laszborítékért listát küldök. 
Devecseri Bálint, 9317 
Szany, Bartók u. 42. 

C-64 és C+4 kazetták 200 
Ft/db, lemezek 50 Ft/db 
áron! Listát küldök. Cserháth 
Zoltán, 1171 Budapest, Dal¬ 
nok u. 5. 

Bálint — Tátrai: Gyakorlati 
statisztikai számítások C-64 


című könyvet + lemezét ke¬ 
resem megvételre. Simon La¬ 
jos, 6521 Vaskút, Petőfi u. 
96/a. 

Sürgősen eladó C-128, ár 
megegyezés szerint. Hegedűs 
György, 1093 Budapest, Ló- 
nyai u. 9. tel.: 2-173-163. 

C-64 + floppyra eladó angolt 
tanító szókimondó program 
tesztekkel, szótárral. Ára: 
390 Ft + portó. Sándor La¬ 


jos, 5836 Dombegyház, Ifjú¬ 
ság It. A/3. 

Plus 4 + magnó + joy + kb. 
600 szuperprogram (91-92-es 
is) 8000 Ft-ért eladó. Kastély 
István, 6221 Akasztó, Vörös¬ 
marty u. 24. Tel.: 351-143. 

Olcsó nyomtatót vennék C- 
64-hez és eladnám, vagy el¬ 
cserélném VT 21200-omat. 
Kovács Krisztián, 6750 Sze¬ 
ged, Bartók B. u. 6. 
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Lemezstatisztika 

Ez a program a filc-típus szerint összeszámolja a lemezünkön 
található file-okat (program, szekvenciális, relatív és user). 
Ha begépeltük és elmentettük, futtassuk le. Ha egy lemez 
file-jairól szeretnénk statisztikát látni, tegyük be a meghaj¬ 
tóba és adjuk ki a SYS 49152 parancsot. 


APRÓCSKÁK 


A program legfeljebb 144-ig számol, ami ideális a Commodore 
1541 és 1571-es meghajtókhoz. Felhívjuk a szíves figyelmet, 
hogy a program 3 1/2 hüvelykes lemezekre is működik. Ha 
több mint 144 file-unk van egy lemezen a 1581-es meghajtóban, 
a file-ok számának összegére hibás eredményt kaphatunk. 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


0 RÉM FILE COUHTER 64 
1 = 

10 FÓR T=49152 TO 49445 4í:EflD CL POKE T. D m;:K=CK+D ^ NEXT 

IF CK033525 THEH PR INT "HIBl=l fi DfiTfi-.SOROKBfiN. . . " ; END 
SVS 49152 

40 DfiTfi 169 ..0,133,251, 16S, 153, 27, 193,20©, 192, 10,208,248,169,36,133, 169 
50 DfiTfi 169,48,133,170,169,2,162,169,160,0,32,189,255,169,8,162,8,160,0 
60 DfiTfi 32,186,255,32,192,255,162,8,32,198,255,32,207,255,32,207,255 
70 DfiTfi 160,0,32,207,255,72,32,183,255,201,64,240,62,104,153,37,193,200 
80 DfiTfi 192,32,208,236,165,251,208,5,230,251,76,53,192,160,22,200,185 
90 DfiTfi 37,193,201,32,240,248,238,35,193,201,80,208,3,238,27,193,201,83 
100 DfiTfi 208,3,238,29,193,201,82,208,3,238,31,193,201,85,208,3,238,33 
110 DfiTfi 193,76,53,192,169,218,160,192,32,30,171,174,27,193,173,28,193 
120 DfiTfi 32,205,189,169,231,16©,192,32,30,171,174,29,193,173,30,193,32 
130 DfiTfi 205,189,169,244,160,192,32,30,171,174,31,193,173,32,193,32,205 
140 DfiTfi 189,169,1,160,193,32,30,171,174,33,193,173,34,193,32,205,189 
169,14,160,193,32,30,171,174,35,193,173,36,193,32,205,189,104 
169,8,32,195,255,32,204,255,96,13,80,82,71,32,7©,73,76,69,83,58 
170 DfiTfi 32,0,13,83,69,81,32,70,73,76,69,83,58,32,0,13,82,69,76,32,70,73 
180 DfiTfi 76,69,83,58,32,8,13,85,83,82,32,70,73,76,69,83,58,32,0,13,65,76 
190 DfiTfi 76,32,70,73,76,69,83,58,32,0,0,0,0,@,0,0,0,0,0,0,0 

REfiDV. 


20 

30 


150 DfiTfi 
160 DfiTfi 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


C-64 II. jó állapotban eladó. 
Ár; 5500 Ft. Cím: Badenszky 
Csaba, 2800 Tatabánya, Fő 
tér 9. 

1541/11. floppyért Babetta 
mopedet adok. Jancsek Ist¬ 
ván, 8700 Marcali, Postaköz 
4. II. Lépcsőház 4/13. 

Plus 4-en programok olcsón 
eladók. 10-et fizet, 12-t kap. 
László Zoltán, 8900 Zala¬ 
egerszeg, Landorhegyi út 52. 

Eladó C128 alapgép + 1574 
drive + programlemezek. 
Szabó Gergely, 3245 Recsk, 
Gárdonyi G. út l/a. 

Plus/4, és C-64-es gépekre 
programcsere, és eladás! Vá¬ 
laszborítékért részieres listát 
küldök. Mindkét gépre, kb. 
2000-2000 prg.-om van! DE- 
MOT nem gyűjtök! Novák 


Péter, 1132 Budajrest, Kresz 
Géza u. 21. 

AMIGA programok! COPY 
CREW. 1188 Budapest, 
Damjanich u. 22. (10-16h- 
ig). Tel.: 06-60-325-901. 

Commodore-hoz keresek szí¬ 
nes monitort. Tel.: 1-346- 
236. 

AMIGA 500 PLUS + 3,5”-os 
külső drive + 0,5 MB-os órás 
bővítő külön is eladó. Baji Já¬ 
nos, 5630 Békés, Kispince 33. 

C-64-CS programok eladók 
lemezen és eladó e^y C-64- 
hez való magnó. Érd.: Pád 
Softwer, 6772 Deszk. Alkot¬ 
mány u. 4. 

Eladó C-128-hoz színes mo¬ 
nitor, továbbá C-64/II + 

1541/11 + 2 db joy + kézi¬ 


könyv + cartridge. Gábri, 
Dunaharaszti, Dózsa u. 69. 

C-64-re 60 perces kazettán 
járékprogramok eladók. Ka¬ 
zettával együtt 295 Ft/db. 
Lemezes programok 140 Ft 
lemezzel együtt. 50 féle ka¬ 
zetta, 3000 program. Válasz- 
borítékért listát küldök. Grásl 
János, 2800 Tatabánya 11. 
Szelim út 19. Tel.: 34-333- 
132 

Figyelem! Óriási választék¬ 
ban eladók IBM játék és fel¬ 
használói programok, már 90 
Ft/lcmez ártól ül Garantáltan 
vírusmentesek. Válaszborí¬ 
tékra tájékoztató. Nagy Ist¬ 
ván, 1202 Budapest, Márti¬ 
tok útja 151. 

Tisztelt C-64 felhasználó! 
Megrendelhető az általunk 
kifejlesztett NARANCS 3 


6200 nevű katalógus készítő 
program. Márkás lemezen 
kapható. Tartozik hozzá még 
egy részletes, könnyen átte¬ 
kinthető használati utasítás 
is. Ára: 500 Ft, amely tartal¬ 
mazza a postaköltséget is. A 
program előnyeiről a 162- 
7724-es telefonszámon, vagy 
a fenti levélcímen kap felvi¬ 
lágosítást. 

Játék- és felhasználói, vala¬ 
mint demó programok el¬ 
adók! Kérjük tüntesse fel a 
gépe típusát és a hozzá tar¬ 
tozó perifériákat. /Vízhatlan 
csomagolás, kedvezmények) 
Bélyeggel ellátott válaszborí¬ 
tékért listát küldünk. (Ami¬ 
ga) FRIEND TWO CREW, 
1399 Budapest, Pf.: 701/55, 
(C-64) BUMBLE BEE, 116 
Budapest, Sáfrány u. 44. 
Tel.; 162-7724. 
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EGYESÜLET 


ACOMP Kft. 

SZEPTEMBERI 
60 Ft-os 

vásárlási utalványa 

Beváltható 500 Ft feletti 
készpénzes vásárlás esetén a 
1141 Budapest, Almos vezér útja 17. 
szám alatti üzletben. 

Érvényes: 1993. szeptember 30-ig. 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


MAKROVILÁG 

utazási iroda 

Beváltható 

utazás megrendelése esetén 

az Üllői úti főirodában az alábbiak szerint: 

5 000 Ft-lg — 200 Ft kedvezmény 

10 000 Ft-ig — 400 Ft kedvezmény 

20 000 Ft-ig — 600 Ft kedvezmény 

20 000 Ft felett — 1000 Ft kedvezmény 
Csoportok jelentkezése esetén további 
kedvezményekről az irodában lehet tárgyalni 


SZEPTEMBERi 

60 Ft-os 

vásáriási utaivány 

Beváltható készpénzes 
vásárlás esetén a 2C Áruházban. 

Bp. XIII., Balzac u. 35. 

Érvényes: 1993. szeptember 30-ig. 

m- 

HOBB/ ELEKTRONIKA 

SZEPTEMBERi 
vásárlási utalványa 

Értéke: 

5000 Ft-ig 80Ft, 

5000 Ft felett 10% 

Beváltható a Hobbi Elektronika Kft.-nél. 
Budapest VII., Dózsa György u. 16. 
Telefon: 122-8892 

Egy személy részére egyszeri vásárláshoz 
egy utalvány használható fel! 


A NOVOTRADE SZERVÍZ Kft. az alább felsorolt szervizeiben 
mindenféle szervizszolgáltatás munkadíjából 10% kedvez¬ 
ményt ad az egyesületi tagoknak. 


1083 

3525 

5600 

6724 

9700 


Budapest, Szigony u. 8. 
Miskolc, Fazekas u. 1-3. 
Békéscsaba, Bartók B. u. 37. 
Szeged, Csongrádi sugárút 76 
Szombathely, Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 



Igazolás: a javítandó berendezés leadásakor egyesületi igazolvánnyal. 
A kedvezmény többször is Igénybe vehető. 


Az Országos Commodore Egyesület szolgáltatásai 

Egyesületi tagoknak 20% kedvezmény: 


VC—20 memóriabővítés 3—27 kByte-os: kiépítéstől függő 

C—16, C—116 memóriájának bővítése 64 kByte-ra: 3600 Ft 

C—16 belső 16 kByte-os EPROM bővítés: 1450 Ft 

C—16 belső 32 kByte-os EPROM bővítés: 2900 Ft 

C—16 belső 8 kByte-os SOFT—ROM bővítés: 2800 Ft 

C— 16 belső 32 kByte-os SOFT—ROM bővítés: 4000 Ft 

C—16 8 kByte-ról 32 kByte-ra átalakítás: 2000 Ft 

C—16és 1641 kompatibilis lemezegység párhuzamosítása: 3200 Ft 

SOFTROM modul 32K, kikapcsoláskor sem felejt C-16, C-116, +4 5000 Ft 

FÉK C—16, C—116, +4 potméteres sebességváltoztatás 

0%-tól 100%-lg fokozatmentesen 2000 Ft 

TTL IC-teszter (Cartridge+lemezen a program) 4300 Ft 

+4, C—16, C—116 UNI—ROM modul különféle kiépítésekben: 

— 8 kByte SOFT—ROM 3400 Ft 

— 16 kByte SOFT—ROM 4000 Ft 

— 8 kByte SOFT—ROM 16 kByte EPROM 4400 Ft 

— 16 kByte SOFT—ROM 16 kByte EPROM 5000 Ft 

— 16 kByte EPROM 2200 Ft 

Egyesület tagoknak 30% kedvezmény: 

Speeddos (átkapcsolható) operációs rendszer beépítése 

(C64 átalakítás, lemezegység átalakítás -i- párhuzamos kábel) 5000 Ft 

1541 kompatibilis lemezegységbe elektronikus lemezlyukasztó beépítése 900 Ft 

PAGEFOX magyar ékezetes kiadvány-szerkesztő cartridge 
(a teljes A/4-es oldal kinyomtatásához 640 pont/soros nyomtató szükesé- 
ges minimum, pl. Citizen 120D) 5500 Ft 

FASTLOAD cartridge (lemezes gyorstöltő, másoló, monitor) 1500 Ft 

TTL IC-teszter cartridge -t program 4300 FT 

288/256 Kbyte-os eprombank (vezérlő eprommal) 5000 Ft 

Epromégetö (2716-tól 27512-igl 5000 Ft 

C64-hez tároló oszcilloszkóp 8000 Ft 

C64-bövltő-port elosztó (egyszerre 4 db cartridge lehet a gépben, melyeket 
gombnyomásra lehet kapcsolni) 7500 Ft 

C64 USER - CENTRONICS nyomtatókábel (GEOS kábel) 1500 Ft 

256 K RAM-diszk (256 Kbyte RAM-mal) 14000 Ft 

256 K RAM-diszk (64 Kbyte RAM-mal) 9000 Ft 

2x64 Kbyte-os cartridge igény szerinti programokkal feltöltve 4.300 Ft 

64 Kbyte-os cartridge igény szerinti programokkal feltöltve 3000 Ft 

Képújság (teletext) dekóder C-64-re 10000 Ft 

1764-es RAM bővítő GEOS-hoz is használható 11250 Ft 

Epromok programozása meglévő programokkal, vagy saját hozott progra¬ 
mok beégetésével 2716-tól 27612-ig az eprommal együtt egységesen 700 Ft 

Arainkat az alkatrészárak változásai befolyásolhatják. 

A fenti bővítések megrendelhetők levélben az O.C.E. elmén, valamint sze¬ 
mélyesen a havonta rendezendő klubdélelöttön, ahol rendszeres bemutatót 
is tartunk. 


Postázás esetén 100 Ft postaköltség kerül felszámításra. 

A kedvezmény igénybevételéhez az O.C.E. tagsági igazolvány bemutatása 
szükséges. 
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Sy Quest 


Hivatalos magyarországi disztribútora; 



Cím: 1053 Budapest, Henszimann I. u. 9 
Telefon: 117-4144 Telefax: 117-9692 


Cserélhető lemezes winchester! 


Szen/izeinkben és szerződött viszonteladóinkon keresztül az alábbiakat forgalmazzuk: 


SQ 555 

44 MB-os 5V4 

SCSI drive, 

SQ 400 lemez 

( 44 MB) 

SQ 5110 

88 MB-OS 5V4 

SCSI drive, 

SQ 800 lemez 

( 88 MB) 

SQ 3105A 

105 MB-os 3V2 

AT-BUS drive, 

SQ 310 lemez 

(105 MB) 

SQ 2542A 

42 MB-os 2 V 2 

AT-BUS drive, 

SQ 240 lemez 

( 42 MB) 


-N 

Számítógépszerviz I 


Személyi számítógépek és perifériák javítását, karbantartását továbbra is tőlünk 
rendelje meg! Gyors, pontos és megbízhatói Örök garanciát kap, 
ha átalánydíjas javítási és karbantartási szerződésformánkkal 
védi nagy értékű gépei műszaki állapotát 




Várjuk jelentkezését az alábbi szervizeinkben; 


1083 Budapest, 
3525 Miskolc, 

5600 Békéscsaba, 
6724 Szeged, 

9700 Szombathely, 


Szigony u. 8. 
Fazekas u. 1-3, 
Bartók B, u, 37. 
Csongrádi sgt. 76 
Szalonak u. 31. 


Tel.: 1343-153 
Tel.: 46/321-488 
Tel.: 66/327-195 
Tel.: 62/493-185 
Tel.: 94/314-519 


NOVOTRADE SZERVIZ KFT. 



SZOKNCSCMTCKirT 


















Ára: 78 Ft 





SZÁMÍTÁST 

E C H N 1 K A 1 K 

F T. 


1135 Budapest, Szent László u. 74./A. Tel.: 149-6165 ^ 


1194 Budapest, Katica u. 

9. 

Tel.: 147-0625 


Commodore Amiga 500 

21 990 Ft 

Fuji 5,25” MF 2HD lemez 

590 Ft 


Commodore Amiga 500 Plus 

21 990 Ft 

Action Replay MK III. (Amiga) + könyv 

9 990 Ft 


Commodore Amiga 600 

21 990 Ft 

Action Replay MK VI. (C-64) + könyv 

5 900 Ft 


Commodore Amiga 600/40 MB HD 

38 990 Ft 

C-64 midi szoftverrel 

6 500 Ft 


Commodore Amiga 1200 

39 990 Ft 

C-64/C-128 Joystick Mouse 

1 990 Ft 


Commodore Amiga 1200/40 MB HD 

57 990 Ft 

C-64/C-128 C1351 Mouse 

2 490 Ft 


Commodore Amiga 1200/80 MB HD 

67 990 Ft 

Swifty Amiga/Atari Mouse (3 gombos) 

1 990 Ft- 


Commodore Amiga 4000/040/6MB/120MB 

269 000 Ft 

4 Player Adapter(4 Joystick csatlakozó) 

1890 Ft 


+ 4 MB RAM modul 

29 000 Ft 

Képdigitalizáló -r RGB splitter 

13 900 Ft 


Commodore 1942 multisync Stereo Monitor 51 990 Ft 

Mouse — Joystick autómatikus kiválasztó 

1 990 Ft 


Commodore 1084 s Stereo-Color monitor 

28 990 Ft 

Reál Time CIok fór Amiga 1200 

2 490 Ft 


Commodore 1085 s Stereo-Color monitor 

27 990 Ft 

Midi Amiga Interface 

3 490 Ft 


Commodore A-520 TV-Modulator 

3 490 Ft 

Handyscanner Amigához 

14 900 Ft 


Commodore C-64 II 

8 890 Ft 

Boot Selector Amigához 

1 490 Ft 


Commodore C-64 + Joystick + játék 

9 490 Ft 

Stereo hangdigitalizáló Amigához 

6 490 Ft 


Commodore 1541 II Floppy drive 

5 990 Ft 

Trackball Amigához 

3590 Ft 


Commodore 1802 monitor C-64-hez 

24 990 Ft 

Rocgen Genlock fór Amiga 

9 900 Ft 


Commodore Datassette 

1 790 Ft 

Rockey Advanced Videó Keying fór Amiga 

24 900 Ft 


Commodore MPS 1230 printer 

18 990 Ft 

Roctec 3,5" Amiga síim külső dirve 

9 490 Ft 


512 Kb órás memóriabővítő 

3 200 Ft 

Roctec 3,5” Ivory Anti-Vírus Amiga drive 

9 990 Ft 


2.0 Mb órás memóriabóvítő 

9 900 Ft 

Roctec 3,5” Black Anti-Vírus Amiga drive 

9 990 Ft 


1.0 Mb-os chip bővítő Amiga 500 Plus-ba 

5 500 Ft 

Roctec 3,5” Amiga belső drive 

8 500 Ft 


1.0 Mb-os órás chip bővítő Amiga 600-ba 

5 900 Ft 

Rochard HD kontroller A500/A500+ 

17 900 Ft 


Mouse pad 

200 Ft 

+ 80 MB Hard Disk 

39 990 Ft 


Noris üveg 14” monitorfilter 

1 490 Ft 

+ 1 Mbyte SIMM Ram 

4 500 Ft 


Noris hálós 14" monitorfilter 

590 Ft 

Joystickok 



Noris MB 80 3,5” lemeztartó 

390 Ft 

Quickshot QS - 113 

950 Ft 


Noris DB 100 5,25” lemeztartó 

390 Ft 

Quickshot QS - 123 

990 Ft 


Noris Porvédő Amiga 500 / 500 Plus 

890 Ft 

Quickshot QS - 146 

2 690 Ft 


Noris Porvédő C-64 II. 

590 Ft 

Quickshot QS - 151 

3 390 Ft 


Sound Blaster PRO-2 Deluxe 

17 490 Ft 

Quickshot QS - 141 

2 690 Ft 


Sound Blaster 16 ASP Deluxe 

27 000 Ft 

Quickshot QS - 1. 

410 Ft 


Amiga Magazin (német) újság 

450 Ft 

Quickshot QS - II. 

540 Ft 


Power Play (német) újság 

450 Ft 

Quickshot QS - II. Plus 

590 Ft 


NoName 3.5” DSDD lemez 

450 Ft 

Quickshot QS - 111A 

740 Ft 


NoName 3.5” DSHD lemez 

680 Ft 

Quickshot QS - 128 

1 290 Ft 


NoName 5.25” DSDD lemez 

190 Ft 

Quickshot QS - 129F 

690 Ft 


NoName 5.25” DSHD lemez 

350 Ft 

Quickshot QS - 130F 

950 Ft 


Maxell 3.5” MF2-DD lemez 

640 Ft 

Quickshot QS - 137F 

840 Ft 


Maxell 3.5" MF2-HD lemez 

1 190 Ft 

Quickshot QS - 155 

2 790 Ft 


Maxell 5.25” MD2-HD lemez 

640 Ft 

Quickshot QS - 149 

2 590 Ft 


Profex 3.5” DSDD lemez (11 db/Form) 

640 Ft 

Quickshot QS - 130N 

840 Ft 

i 

Profex 3.5” DSHD lemez (11 db/Form) 

990 Ft 




Profex 5.25” DSHD lemez (11 db/Form) 

540 Ft 

Uj üzletünk megnyitása alkalmából szenzációs 


Fuji 5.25” MD 2DD lemez 

360 Ft 

árengedményekkel kedveskedünk vásárlóinknak / 

í ^ 


Áraink az 1 év garanciát és az ÁFA-t tartalmazzák! 

\ 



sirnocsDnain 







